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1 -REM € 
2 e 
3 
5 
: IDENTIFICATION 
$ PRODUCT CODE: AC-U115A-MC 
19 PRODUCT NAME: CZKXAAO KXJ11-CA DIAGNOSTIC 
16 PRODUCT DATE: 20-MAR-1986 
is MAINTAINER : DIAGNOSTIC ENGINEERING 
1 AUTHOR : HENRY ENMAN 
18 
20 
21 Li ep nt RS Beg owe TO CHANGE WITHOUT 
22 NOTICE AND SHOULD NOT BE gy 3 AS A COMMITMENT BY DIGITAL 
23 EQUIPMENT CORPORATION. PMENT CORPORATION ASSUMES NO 
Se RESPONSIBILTY FOR ANY ERRORS THAT MAY APPEAR IN THIS 
26 pK fag gf AE ASSUMED FOR THE USE OR RELIABILITY OF 
27 SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
3 AFFILIATED COMPANIES. 
z COPYRIGHT (C) 1986 BY DIGITAL EQUIPMENT CORPORATION 
33 THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
35 DIGITAL ; UNIBUS MASSBUS 
3 DEC BECUS DECTAPE 
38 é 
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arbiter. It establishes contact with the KXJ11-CA to be tested via an 


memory of the KXJ11-CA to be tested via serial line ports. 
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re need to reload the test code on subsequent turns. 
183 There are two possible diagnostic operating environments: reti 
184 under tne XXDP aonitor and operation . ieeiten in the 
185 APT environment in tests are not performed Namely console 
186 port date test. If this test were run when in APT environment, 
187 it would could cause characters to be sent to the APT monitor when they 
ise were not expected and give a false failure indication ~o APT. 
1o1 1.2 SYSTEM REQUIREMENTS 
192 * KDF1il KDJ11 ARBITER 
193 * AT LEAST 56KB OF Q-BUS RANDOM ACCESS MEMORY 
194 * 22 BIT ADDRESS @ BUS BACKPLANE (18 BIT QBUS MAY BE USED WITH REDUCED TEST COVERAGE) 
195 * DL COMPATIBLE SERIAL LINE PORT FOR EACH KXJ11-CA TO BE TESTED PLUS ONE 
196 FOR THE ARBITER’S CONSOLE : 
197 * CONSOLE TERMINAL, OR CONNECTION TO APT SERIAL LINE. 
198 * ONE TO FOURTEEN KXJ11-CA MODULES TO BE TESTED. 
199 * OPTIONALLY, A @ BUS EXERCISER MAY BE INSTALLED OR A KXT11-CA WITH AN 
1/0 PAGE ADDRESS OF 175740 CID@ 15) MAY BE INSTALLED FOR FURTHER 
201 Q@ BUS ACE TEST 
a 1.3. RELATED DOCUMENTS AND STANDARDS 
205 KXJ11-CA MODULE SPECIFICATION 
Soe PDP11 MAINDEC SYSMAC PACKAGE 
Pe 1.4 DIAGNOSTIC HIERARCY PREREQUISITES 
210 Diegnest; ¢ programs for the arbiter system components should 
AE: executed quncesefully prior to iowa ine the KXJ11-CA diagnostic 
th 1.5. ASSUMPTIONS 
215 It is assumed that the diagnostic operator is familiar with 
si8 the XXDP+ operating system and and the Jil J1l micro-odt. 
si5 2.0 OPERATING INSTRUCTIONS 
220 2.1 LOADING AND. STARTING PROCEEDURE 


ic for the KXJ11-CA is loaded into the arbiter's 


Ss memory 
connected the arbiter usi 
oor From APT. hs ciaapectic le than 


into: the KXJ11-CA under test via the 
é 
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229 .REM € 
230 

231 

ae 2.2 PROGRAM OPTIONS 

re THE FOLLOWING SWITCH OPTIONS ARE SUPPORTED: 

ose SWR OCTAL FUNCTION 

238 15 100000 HALT ON ERROR 

239 14 040000 INHIBIT ERROR SUMMARY CAT EOP) 

240 13 020000 ‘INHIBIT ERROR 

241 12 010000 I0P ID# 15 IS KNOWN GOOD FOR TESTING 

242 11 004000 TEST STAND ALONE IOP 

243 10 002000 EXECUTE EXTENDED MEMORY TESTS 

244 09 001000 LOOP ON ERROR 

245 08 000400 LOOP ON TEST IN SWR<6:0> 

oe 07 000200 INHIBIT TEST NUMBER/TITLE 

248 

po 3.0 ERROR INFORMATION 

251 If bit 15 in the software switch register is set then all errors will 
252 cause the KXJ11-CA to halt after reporting the error to the arbiter 
255 vie the $ERROR routine. All test errors will t an error message, 
cae @ unique error number, and the PC at the time of the error. 

cae 4.0 PROGRESS REPORT 

258 At the end of each pass the id number of the KXJ11-CA under test, the 
<7? diagnostic name and pass count are printed. 

261 & 
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263 -NLIST MC,MD,CND,BEX, TOC DON’T LIST MACRO CALLS, MACRO DEFINITIONS, 
264 : ITIONAL » BINARY EXTENTIONS, 
265 ;0R TABLE OF CONTENTS 
266 000000 -ENABL ABS,AMA,LC,CRF 
279 -LIST ME 
280 -TITLE KXJ11-CA FUNCTIONAL TEST 

; *COPYRIGHT MCML XXXVI 


Tit aed a 
jSPACKAGE (MAINDEC-11-DZQAC-CS5), » 1981. 







000001 TN=1 
= 160000 $SUR=160000 —«; ;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
582 101400 $SWR= 101400 ; REDEFINE ACTIVE SUITCHES. . 
583 000200 $SURMK= 000200 "AND ADD SWR<7>- 
584 000000 SEN= 0 
585 000123 PRGSIZ= <LASTAD/BITS> + PROGRAM SIZE CIN 1/8 K UNITS). 
286 "EXCLUDING BUFFERS AND REMOTE STUFF. 
288 pak oe tok tek hook doko gag oto doko tckok ak dog tok lok oma kak gto dokokok kok do ak 
289 (OR go tok koto gd tdok i iio tok oktoioiogok doiojck eaioi tok doi doo dokokotokgotok dckok doom ok tok gotob ok gor toe 
PROGRAM CONTROL P | ABL ING 
291 ; AT LOC 1216, AND ARE CONFIGURED IAW PROCESSOR TYPE AT ASSEMBLY T 
y 
593 ’ THE PROGRAM WILL BYPASS ANY TEST IN WHICH THE DEVICE/FUNCTION REQUIRED 
594 ; APPEARS TO BE NON-EXISTANT (WHETHER TONAL 
295 : YOU MAY FORCE AN ENTRY TO ANY/ALL TESTCS) VIA SWR<08> OPTION. 
597 ' THE FOLLOWING SWITCH OPTIONS ARE SUPPORTED: 
$35 ; SUR OCTAL FUNCTION 
301 ; 15 100000 - : 
308 , 13 920000 Deaer ERROR n surmny oa 
304 . 12 010000 IOP 1D¢ 15 IS KNOWN GOOD FOR TESTING 
305 11 008000 EXECUTE EXTENDED MEMORY TESTS 
, 40 
307 5 09 001000 
308 08 000400 ae a ie ST IN SUR<6:0> 
309 07 000; 1 NUMBER/TITLE 
310 OOOOI EBB 2 0 ADA athe i 8 i _ ROTO OTE 
3il F} EEREKKESKESEEAEEEESESEEDSE?P REEKEESESESRAERESSESSEE SESS £444645464066646666466660664 
312 ‘SBTTL BASIC DEFINITIONS 
INITIAL ADORESS OF THE STACK POINTER ### 1100 see 
001100 éTACK= 1100 
104000 ERROR= EMT 


SCOPE= IO0T 
;#MISCELLANEOQUS DEFINITIONS 


000011 HT= ii ;;CODE FOR HORIZONTAL TAB 
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BASIC DEFINITIONS 


000012 iF= 12 ;;CODE FOR LINE FEED 
000015 cR= 15 : CODE FOR CARRIAGE RETURN 
000200 CRLF = ‘CODE FOR CARRIAGE RETURN-LINE FEED 
177716 PS=- «177776 : PROCESSOR STATUS WORD 
177776 PSW= 
177774 STKLMT= 177774 ;;STACK LIMIT REGIS 
177772 PIRQ= 177772 +. T REQUEST REGISTER 
177570 DSWR= 33 
177570 DDISP= 177570 :SHARDWARE DISPLAY REGISTER 
,*#GENERAL PURPOSE REGISTER DEFINITIONS 
000000 RO= 0 ;;GENERAL REGISTER 
000001 Ri- = ; GENERAL REGISTER 
000002 R2= 2 : ;GENERAL REGISTER 
000003 R= «5 : GENERAL REGISTER 
000004 + ae” ‘a REGISTER 
000005 S is ; }GENERAL REGISTER 
000006 R= MS a REGIS 
000007 - «2 *SGENERAL REGISTER 
000006 SP= 6 S STACK POINTER 
000007 PC= 67 33 
*PRIORITY LEVEL DEFINITIONS 
000000 proz= 0 s PRIORITY LEVEL 0 
000040 PRi= 40 ; PRIORITY 
000100 PR2= «100 ;sPRIORITY LEVEL 2 
000140 PR3= 140 S;PRIORITY LEVEL 3 
000200 PR4= 200 SsPRIORITY LEVEL 4 
000240 PR5= 340  SPRIORITY LEVEL 5 
300 PR6= 300 ;;PRIORITY LEVEL 6 
000340 PR7= 340 ;sPRIORITY LEVEL 7 
*"SWITCH REGISTER” SWITCH DEFINITIONS 
100000 15= 100000 
040000 SW14= 40009 
020000 Sui3= 20000 
010000 Sui2= 10000 
004000 Suli= 4000 
Sui0= 2000 
001000 sw09- 1000 
SuO7= 200 
000100 SuO6= 100 
SWOS= 40 
Sudd= 20 
000010 Su03= 10 
SuO2= 4 
Su0l= 2 
1 SWOO= i 
001000 SW9=  SWO9 
SuB=  SWO8 
Su7= SWOT 
000100 Su6= SWO6 
Sus= SWOS 
Sud= Swo4 
000010 Su3= SUO3 
Su2= SWO2 
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BASIC DEFINITIONS 
000002 Swi- SWo1 
000001 Su0- SWOO 
,4DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 &TT15= 100000 
040000 BITi4= 40000 
020000 BIT13= 20000 
010000 BIT12= 10000 
004000 BIT1i= 4000 
002000 BIT10= 2000 
001000 | BITO9= 1000 
000400 BITO8= 400 
000200 BITO7= 200 
000100 BITO6= 100 
BITOS= 40 
BITO4= 
000010 BITO3= 10 
BITO2= 
000002 BITOI= 2 
i BITOO= 1 
001000 BIT9=  BITO9 
BITé= BIT 
200 BIT7= BIT07 
000100 BIT6=  BIT06 
BITS= 81T05 
20 BIl4= BIT 
000010 BIT3= BITO3 
BIT2= 8B 
000002 BITi=  8IT01 
000001 BITO=  BITOO 
*sBASIC "CPU" TRAP VECTOR ADDRESSES 
000004 ERRVEC= 4 S;TIME OUT AND OTHER ERRORS 
000010 RESVEC= 10 ;SRESERVED AND ILLEGAL INSTRUCTIONS 
000014 TBITVEC=14 eeT™ BIT 
000014 TRIVEC= 14 VCTRACE TRAP 
000014 EC= i4 ;'BREAKPOINT TRAP (BPT) 
000020 Io = 20 3 NPUT/OUTPUT TRAP CIOT) #*SCOPEs« 
000024 PURVEC= 24 POWER FAIL 
000030 EMTVEC= 30 | :ERULATOR. TR TRAP (EMT) #sERROR#« 
000034 TRAPVEC=34 TAs 
000060 TKVEC= 60 TTY KEYBOARD VECT 
000064 TPVEC= 64 TTY vecror™ 
000240 PIRQVEC=240 PROGRAM INTERRUPT REQUEST VECTOR 
313 “SBTTL MEMORY nanncerent ogee DEFINITIONS 
;*KT11 VECTOR ADDRESS 
000250 MMVEC= 250 
;#KT11 STATUS REGISTER ADDRESSES 
177872 SRO= «177572 
~ 177574 SRi= 177574 
SR2= «177576 


177576 1 
172516 SR3= 172516 
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USER “I” PAGE DESCRIPTOR REGISTERS 


600 UIPDRO= 177600 
177602 UIPDRi= 177602 
177604 UIPDRe- 177604 

77606 UIPDR3S= 177606 
177619 UIPDR4= 177610 

612 UIPDRS= 177612 
177614 UIPDR6= 177614 
177616 UIPDR7= 177616 

;#USER “D” PAGE DESCRIPTOR REGISTORS 
177620 UDPDRO= 177620 
177622 UDPDRi= 177 
177624 UDPDR2= 177624 
177626 UDPDRS= 1 
177630 UDPDR4= 177630 
177632 UDPDRS= 177632 
177634 UDPDR6= 177634 
177636 UDPDR7= 177636 
;*USER “I” PAGE ADDRESS REGISTERS 
177640 UIPARO= 177640 
177642 UIPARi= 177642 
77644 UIPAR2= 177644 
77646 UIPARS= 1 
177650 UIPAR4= 177650 
177652 UIPARS= 177652 
1776 UIPAR6= 177654 
1776 UIPAR7= 177656 
;#USER “D” PAGE ADDRESS REGISTERS 
177660 ARO= 177660 
177662 ARi= 177662 
177664 177664 
7666 3= 177666 
177670 AR4= 177670 
177672 ARS= 177672. 
177674 UDPAR6= 177674 | 
177676 UDPAR7= 177676 
s*SUPERVISOR “I” PAGE DESCRIPTOR REGISTERS 
ae sme 1788 
tices 1 
ive 1724 
172210 SIPOR4= 172210 
2212 SIPORS= 
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MEMORY MANAGEMENT DEFINITIONS 
172220 SDPDRO= 172220 
172222 SDPDR1i= 172222 
172224 SDPDR2= 172224 
172226 SDPDR3= 17 
172230 SDPDR4= 172230 
7 SDPDRS= 172232 
172234 172234 
7 SDPDR7= 172236 
;*SUPERVISOR “I” PAGE ADDRESS REGISTERS 
SIP. 172240 
172242 SIPARI= 172242 
172244 SIPAR2= 172244 
172246 SIPARS= 172246 
SIPAR4= 172250 
172252 SIPARS= 172252 
172254 SIPAR6= 172254 
172256 SIPAR7= 172256 
;*SUPERVISOR “D" PAGE ADDRESS REGISTERS 
2260 ARO= 172260 
172262 SOPAR1= 172262 
264 AR2= 172264 
SDPARS= 172266 
172270 SDPAR4= 172270 
172272 SDPARS= 172272 
172274 SDPAR6= 172274 
172276 SDPAR7= 172276 
;*KERNEL “I“ PAGE DESCRIPTOR REGISTERS 
2300 KIPDRO= 172300 
172302 KIPDRi= 172302 
72304 KIPDRe= 172304 
172306 KIPDR3= 1723506 
172310 KIPDR4= 172310 
172312 KIPORS= 172312 
172314 KIPDR6= 172314 
172316 KIPOR7= 172316 | | 
;#KERNEL “D” PAGE DESCRIPTOR REGISTERS 
172320 KDPDRO= 172320 
172322 KDPORi= 172322 
172324 DR2= 
172326 KDPDRS= 17 
172330 KDPDR4= 172330 
172332 ‘2 
172334 KDPDR6= 172334 
172336 KDPDR7= 172336 
;*KERNEL “I” PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 
172342 KIPARI= 172342 
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MEMORY MANAGEMENT DEFINITIONS sal ” 
















172344 KIPARO= 172344 
172346 KIPARS= 172346 
172350 KIPAR4= 172350 
172352 KIPARS= 172352 
172354 KIP 172354 
172356 KIPAR7= 172356 
;#KERNEL “D” PAGE ADDRESS REGISTERS 
172360 KDPARO= 172360 
172362 KDPARi= 172362 
172364 KDPAR2= 172364 
KDPARS= 172366 
172370 KDPAR4= 172370 
7237 KDPARS= 172372 
172374 KDPAR6= 172374 
172376 KDPAR7= 172376 
314 177572 MMRO= 177572 
315 172516 MMR3S= 172516 
$9 177746 CCR= 177746 ;KDJ11A CACHE CONTROL REGISTER 
: 
re ; ADD A FEW MORE 
rs 
320 174470 MMR= 174470 : 
321 COPi= 174462 3 
322 7 COP2= 174460 ; 
323 174456 STATi= 174456 ; 
324 174454 STAT2= 174454 ; 
325 174454 CMOR= Loree ; 
326 174446 eae 174446 ; 
7 174444 174444 
8 174442 CHAIL= 174442 ;...AND THE LOW COFFSET) HALFS. 
329 CHA2ZL= 174440 
330 174432 CARAH1= 174432 ;CURRENT ADDRESS REGISTER A HI CHANNEL 1 
335 174435 EARBHt tyaane CURRENT ADDRESS TER 8 HI CHANNEL 1 
BHi= 1744 ; ORE ae 
$33 174402 CARBLi= 174402 : ;CURRENT ADDRESS 5 LO CHANNEL i 
335 000135 MMRDEF= 135 | 3 MAR default setting <block lower level hardware 
336 G09) 88 4i= 102 :Set Software Romanek 
337 00010 103 ;Set Software Request 2 
Ne 000240 = 240 3 i i 
39 000241 SCCCH2= 241 
341 000061 ELIED- Oct 
sat 000062 SETIE1= 063 _ : interr. 
000063 SETIE2= :Set channel 2 interrupt 
344 000054 CLIPi= ;Clear channel 1 current and pending interrupt 
Sag 000055 CLIP2= 055 ;Clear channel 2 current and pending interrupt 
; 
347 ;Chain Reload Word Bit Definitions 
348 
349 000001 duap= 1 :Chain eddress 
say 000002 MODE= 2 : Mode Register 
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BOP= 20 ;Base Operation count 

BARB= 40 ;Base Address B 

BARA= 100 ;Base Address Reg A 

COP= 200 ;Current + eS coun 

CARB= 400 ;Current Address Register : 

CARA= 1000 ;Current AddresS Register A 

orc Greet and Base Address t/tag bit definitions 
DOWN= 10 : DECREMENT ADDRESS 

HOLD= 20 


ADDRESS 
K2T0= 40000 SADDRESS IS IN IOP I/0 SPACE 
KOMEM= 0 ;ADDRESS IS IN IOP MEMORY 
QBUSIO= 140000 ;ADDRESS IS IN @ BUS I/O SPACE 
_— 100000 ;ADDRESS IS IN @ BUS MEMORY 


‘pTC Channel mode ister bit definitions 
ion type mag Be 











- s eae. 
: 

SBM= 1ST0P 
fM= 10 : : INTERRUPT MASK 
SWRQ= 20 :5f REQUEST 

;0TC Status Register bit definitions 

C= 1 ; TRANSFER 

E0OP= e sEND OF PROCESS (NXM) 


De 
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;CHAIN ABORT 

3;NO AUTO-LOAD OR CHAIN 

; T PENDING 
CHANNEL INTERRUPT ENABLE 


; THESE ARE EQUATES FOR THE KXJ11-CA CONTROL STATUS REGISTERS 


CA= 4000 
NAC= 10000 
IP= 20000 
CIE- 100000 
K2CSRA= 177520 
K2CSRB= 177522 
KOCSRC= 177524 
K2CSRE= 177526 
K2ESRD= 177530 
K2GIR= 177532 
KOCSRF= 177534 
KOCSRH= 177536 
K2CSRJ= 177540 
APTENV= 1 
CPEREG= 177766 
WLZ= 400 
mz- © 
SKPi= BR+i 
SKP2= BRe2 
SKP3= BRs3 
Fill-= 3 

Tili= 4 

jie = 

ACK= 6 
NACK= 25 
STBOT= 1000 


\ 
|> PROCESSOR TYPE CHFPT) CODES. 
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TRAP CATCHER 
548 .SBTTL TRAP CATCHER 
000000 
ONS OF THE VECTOR AREA CONT 
;#A “.+2, IOT" SEQUENCE TO CATCH AND PROCESS ILLEGAL 
;* THAT MIGHT OCCUR 
;#THE TOT TRAP WHICH IS TAKEN ON THE ILLEGAL / 
;#TRAPS TO $ ROUTINE WHICH CIF THE RETURN PC IS 
;#LESS THAN 1002) JUMPS TO THE $ERROR ROUTINE 
;*THE $ERROR ROUTINE WILL THE ERROR AS FOLLOWS 
3* - 
; AND TO PROGRAM AT PC=YYYYYY-2 
;#WHERE XXX=LOCATION OF ILLEGAL 
:* YYYYYY=PC AT TIME OF TRAP 
;#NOTE: IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM 
" CAN BE STARTED AT ADDRESS O AS WELL AS ADDRESS 200. 
000000 000000 $40CAT: HALT ; sHALT 
000002 000737 BR .-100 : sBRANCH TO 177700 & TIME OUT (NOT ON 
000004 051510 .WORD  $$ARB ;:VECTOR TO STARTING ADDRESS 
000006 900340 - WORD 340 ;;WITH PRIORITY LEVEL 7 
000174 000000 DISPREG:.WORD 0 ;;SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: .WORD 0 ;;SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESCES) 
000200 000137 051510 UMP @S$$ARB ;;GO TO START OF PROGRAM 


—. | 


A A 


re 
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INE THE VECTOR SPACE _ 


550 -SBTTL REDEFINE THE VECTOR SPACE. 
551 gp FESESSERSESSESESSSESSESSSASARESSSSE SASSER AES KSEE SESEREL AERA ERERAEEEES 
552 000000 .=0 ; ee 
553 000000 000002 000000 .WORD .+2, 0 ;...AND FIX ZERO 
ro 000004 nonce 000000 — .+2, 0 ;...-AND FIX FOUR 
ane 000024 Oneaee 000340 PWRV: ry DISMISS, PR7 ; SET PWR CBINIT) VECTOR. 
sae 000034 Coane 000340 _ $TRAP, PR7 ; SET TRAP VECTOR TO POINT TO TRAP HANDLER 
Set 000070 Satie mt 000200 NECV: md DISMISS, PR4 ; SET NEC7201 CSYNC/ASYNC) VECTOR (T). 
562 000100 2 000300 BEVNT: .WORD DISMISS, PR6 ; SET BEVNT CLTC) AND.. 
563 000104 002542 000300 PEVNT: .WORD DISMISS, PR6 ;...PEVNT (28036 OR 18254 PIT). 
564 000110 .BLKW 2 ; OPEN 
565 000114 002542 000340 PRTYV: .WORD DISMISS, PR7 ; SET PARITY ERROR.. 
566 000120 002542 DPRV4: .WORD DISMISS, PRS ;...DUAL-PORT-RAM WORD 4 (T)... 
567 000124 000240 DPRV8: .WORD DISMISS, PRS ;...DUAL-PORT-RAM WORD 8 (T)... 
000130 003042 000240 TBIACK: .WORD BITRAP, PRS ;..-BIACKI (T).. ;FX8JUC 
000134 002542 000240 12: .WORD DISMISS, PRS ;...AND DUAL-PORT-RAM WORD 12 (T). 
570 000140 enbias FALCON: — 2 ; *** RESERVED FOR “FALCON-BREAK” «a« 
000144 056642 000200 QIRV: .WORD QREQ, Fr4 ; Q-REQUEST, ARBITER EXECUTES “RTI”. 
574 000150 056630 000200 QIRV1: .WORD QREQi, PR4 ; Q@-REQUEST, ARBITER EXECUTES “RESET”. 
575 000154 Sanses QIRV2: _ QREQ2, PR4 ; Q-REQUEST, ARBITER WRITES DPR 
578 000160 000200 PIOAV: .WORD DISMISS, PR4 ; PIO PORT A 
579 000164 002542 000200 PIOBV: .WORD DISMISS, PR4 ;...AND PORT B VECTORS. 
580 000174 7174 
581 000174 -WORD O 
582 000176 1 .WORD 140000 ; OPEN (DISPREG/SWREG). 
583 000200 000137 051510 RSTART: JMP $$ARB ; DEFAULT START; DETERMINES OPERATING 
584 ; ENVIRONMENT INVOKES REMOTE LOADER. 
Sz 000204 set oH 001622 DSTART: ee START ; DIAGNOSTIC START/RESTART. 
587 000214 002542 000200 DMAV :DMAV1: .WORD DISMISS, PR4 ; DTC channel on k2 
588 “20 002542 000200 DOMAV2: . DISMISS, PR4 sDTC channel 2 on k2 ;k2hhe 
3 000240 2240 : 
590 000240 PIRVEC: 
591 000240 003056 000340 PIRQV: . — UNEXPI, PR7 ;Vector for unexpected PIRQ interrupts 
5 000250 = | : 
38 000250 002542 000200 .WORD DISMISS, PR4 ; VECTOR FOR UNEXPECTED MMU ERRORS 
94 000254 052032 000200 NXTIOP: .WORD NEXT1, PR4 ;VECTOR THE ARBITER TO LOOK FOR THE NEXT IOP 
595 000410 .=410 
596 -LIST ME 
597 000410 IOPVEX: 
600 000410 O33636 000340 .WORD IOPVO2,PR7 
000414 000340 -WORD IOPVO3,PR7 
000420 055666 000340 «WORD IOPVO4,PR7 
000424 055672 000340 .WORD IOPVO5,PR7 
000430 055676 000340 -WORD IOPVO6, 
000434 702 000340 .WORD IOPVO7, 
000440 706 000340 -WORD IOPVO8,PR7 
000444 055712 000340 .WORD IOPVOS, 
000450 055716 000340 -WORD IOPV10,PR7 
000454 055722 000340 -WORD IOPVi1i, 
000460 055726 000340 .WORD IOPV12,PR7 





Ge 
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000464 055732 
000470 055736 000340 
000474 055742 000340 


602 001000 
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-WORD IOPV135,PR7 
-WORD IOPV14,PR7 
-WORD IOPV15,PR7 


Page 18 


RESET PC. 





H2 






KXJ11-CA FUNCTIONAL TEST MACRO YOS.02 Thursday 03-Apr-86 14:11 Page 19 
APT MAILBOX-ETABLE 
606 LEVEN 
001166 $MAIL : ;;APT MAILBOX 
1 000000 $MSGTY: .WORD AMSGTY ;; TYPE CODE 
091170 000000 $FATAL: .WORD FATAL ;;FATAL ERROR NUMBER 
001172 000000 $TESTN: .WORD ATESTN ;;TEST NUMBER 
001174 000000 $PASS: .WORD PASS ;;PASS COUNT 
001176 000000 $DEVCT: WORD ADEVCT ;; 
1200 000000 $UNIT: .WORD AUNIT ;;1/0 UNIT NUMBER 
001202 000000 $MSGAD: _.WORD AMSGAD ;;:MESSAGE ADDRESS 
1204 000000 $MSGLG: .WORD AMSGLG ;; LENGTH 
001206 SETABLE: ;;APT ENVIRONMENT TABLE 
1206 000 sENV: BYTE AENV, BYTE 
1207 000 SENVM: BYTE AENVM  ;:;ENVIRONMENT MODE BITS 
001210 000000 $SWREG: |WORD ASWREG ;:APT SWITCH REGISTER 
1212 000000 $USWR: .WORD AUSUR s USER SWITCHES 
001214 000000 $CPUOP: :WORD  ACPUOP i3CPU TYPE , OPTIONS 
7 BITS 15-11=CPU TYPE 
i 11/04=01, 11/05=02, 11/20=03, 11/40=04, 11/45=05 
;4 11/70=06 .PDQ=07 , Q=10 
o IT 10=REAL TIME CLOCK 
a BIT 9=FLOATING POINT PROCESSOR 
ps BIT 8=MEMORY MANAGEMENT 
001216 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 
001217 000 $MTYP1: .BYTE AMTYP1 ;;:MEM. TYS #1 
ae MEM.TYPE BYTE -- (HIGH BYTE) 
a 900 NSEC CORE=001 
:* NSEC BIPOLAR=002 
5 500 NSEC MOS=003 
001220 000000 $MADR1: .WORD AMADR1 ;;4IGH BLK#1 
eae | ADDR.=3 BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 
00122 000 > .BYTE AMAMS2 ;;HIGH M.S. BYTE 
00122 000 $MTYP2: [BYTE AMTYP2 ;;MEM. TYPE 
001224 000000 $MADR2: . AMADR2 ;;MEM.LAST 
001226 000 $MAMS3: .BYTE AMAMS3 ;;HIGH 
001227 000 $MTYP3: .BYTE AMTYP3 ;;MEM. TYPE 
001230 000000 $MADR3: .WORD AMADRS ;;MEM.LAS 
001282 000 $MAMS4: .BYTE AMAMS4 ;;HIGH 
00123 000 $MTYP4: . AMTYP4 ;;MEM. TYPE 
1234 000000 $ “WORD AMADR4 ;;MEM.LI 
001236 000000 $VECT1: .WORD AVECT1 ;; INTERRUPT PRIORITY#1 
001240 000000 $VECT2: .WORD AVECT2 ;; INTERRUPT VECT ORITY#2 
001 000000 $BASE: .WORD  ABASE on [ UNDER 
001 000000 $DEVM: .WORD ADEVM ;; 
001246 000000 $CDW1: WORD ACDWi 3 
001250 000000 $CDW2: ACDW2 ss: 
001252 000000 $DDW0: .WORD ‘ADOWO as 
001254 000000 $D0DWi: WORD 330 
001256 000000 $DDW2 : men priser re 
001260 000000 $DDW3: | ; DEVICE 
001262 000000 $DDW4: .WORD ADDW4 ;;DEVICE 
1264 000000 $DDWS: .WORD ADDWS ;;DEVICE DESCRI 
001266 000000 $0DW6: .WORD ADDW6 ;;DEVICE 
001270 000000 $00W7: .WORD ADOW7? ;;DEVICE C 
1272 000000 $DDW8: {WORD ADDWS ;;DEVICE 
001274 000000 $0DW9: {WORD ADDW9 ;;DEVICE 
001276 000000 $DDW1i0: _WORD ADDW1O s DEV 
1300 000000 $O0DWi1: .WORD ADDW11 
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APT MAILBOX-ETABLE _ 
001302 000000 $DDWi2: .WORD ;;DEVICE DESCRIPTOR WORDG12 
001304 000000 $O0DWi3: .WORD ADDWiS ;;DEVICE DESCRIPTOR WORD#15 
1306 000000 $DDW14: .WORD ADDW1i4 ;;DEVICE DESCRIPTOR WORDG14 
001310 $DDWi5: .WORD ADDWIS ;;DEVICE DESCRIPTOR WORD#15 
001312 SETEND: 


6 366 

eH 001370 

6 

659 001372 

660 74 

661 001576 
400 


4 
676 001412 
677 
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-SBTTL PROGRAM CONTROL PARAMETERS 
¢ SSESSSASSSSSSASASSASSSSSSSESESESSESSKESSEEAKESEKESESEEEEESEKEESEEEAESASSESEKES 
; THE FOLLOWING PARAMETERS THE BEHAVIOR OF 
* ARE CONDITIONALLY CONFIGURED IAW PROCESSOR TYPE AT ASSEMBLY TIME. 
; ITEM SBC FUNCTION 
$CPTYP: Jil 
icsr: 177530 or Y CONTROL /STATUS REGISTER. 
$QIR: 177532 ‘T +  @-BUS INT (VECTOR) REGIS 
$DPR: 175000 ‘7 + QUAL-PORT-RAM LOCAL ADDRE 
SDPRQ: 160000 ‘7 + DUAL-PORT-RAM @-BUS BASE ADDRESS 
SDMA: 174400 ‘t :  AMZ8016 COR QMIC) DMA CHIP BASE 
$SL2: 175700 ‘| + SECOND SERIAL LINE ADDRE 
$PIO: 1 iy + 378036 PIO/PIT BASE ADDRESS 
$CLK: 1 ‘T + LINE CLOCK (BEVNT) CSR. 
iPNUM=  <.-$CSR>/2 ;TFJ; NUMBER OF VARIABLE ITEMS. 
icsra: 177520 ;T ; SECONDARY CONTROL/STATUS REGISTERS. . 
$CSRB:$CID: 177522 *TFJ;..- INCLUDES CID ON F/J.. 
$CSRC:$LEDS:$TCID: 177524 ‘FJ, |. INCLUDES LEDS CAND CiD ON 7). 
fapLy: 1 :TFJ:;  Q-TROK WATT LOOP, CONTROL. 
“STAND-ALONE (1) == 163. MSEC.. 
"APT-AUTO (62.) == 10.1 SEC. 
RFLAG: 1 ; FLAG FOR TRAP THROUGH 24. O=EXPECTED SFXBUC 
1=UNEXPECTED.  FXBUC 
TPROTR: 1 ‘FLAG FOR TRAP CAUSED BY WRITE TO TPROO 
HLTFLG: 1 ‘SAY HALT TRAP 
BFLAG: 1 FLAG FOR TRAP THROUGH 130. O=EXPECTED sFXBUC 
; 1=UNEXPECTED. FXBUC 
SLOCOO: .WORD 0 
SLOCOL: .WORD 0 
THESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE WORKING DATA, 
EXPDAT: .WORD 0 EXPECTED (GOOD) DATA FOR COMPARISONS 
T: -WORD 0 RECIEVED DATA DATING Por 
"WORD 0 STORE INDICATOR FOR FLOAT POINT TESTS 
WORD USED TO STORE "FLAG" 


POR ERROR COUNT 
THAN ONE TEST AS LOOP COUNTERS 





: 
; 
: 
ne 


= 


-WORD O 
-WORD 0O 
.WORD 0 
: or 4 oe FOR UNEXPECTED TRAP DATA 
: .WORD O ;0TC prin) 1 pe indicator 
: .WORD 0O ;DTC channel 2 event indicator 
-WORD 0 ;Scratch location 3k2hhe 
-BLKW 20. ;k2hhe 


;Scratch locations 


Ke 
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GLOBAL SUBROUTINES SE 


CTION | 
679 _SBTTL GLOBAL SUBROUTINES SECTION | 
681 ; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 

one ; THAT ARE USED IN MORE THAN ONE TEST. 

684 ; 

685 ;MMU GLOBAL SUBROUTINES 

687 ; ROUTINE TO INITIALIZE MEMORY MANAGEMENT 

689 001462 01 fu: MOV RO, -(SP) ;SAVE CONTENTS OF REGISTERS 

90 001464 010146 MOV Ri. -(SP) ; 

691 001466 01 MOV -(SP) ; 

692 001470 012700 177600 MOV #177600 ,RO 

693 001474 004737 001562 JSR PC.POR ;INIT I AND D USER PDR'S 

694 001500 004737 001576 JSR PC.PAR ;INIT I USER PAR'S 

95 001504 004737 001576 JSR PC: PAR sINIT D USER PAR’ 
696 001510 012700 172200 MOV #172200 ,RO 
697 001514 004737 001 JSR ,POR ;INIT I AND D SUP PDR’S 
698 001520 004737 001576 JSR PC, PAR sINIT I SUP PAR'S 
699 001524 004737 001576 JSR PC, PAR ;INIT D SUP PAR'S 

700 001530 004737 001 JSR ; sINIT I AND D KER PDR’S 

701 001534 004737 001576 JSR PC PAR ;INIT I KER PAR'S 

702 001540 004737 001576 JSR SINIT D KER PAR‘S 
703 001544 012737 000027 172516 MOV #27 ,@#172516 sINIT MMR3: ENABLE 22 BIT MAPPING 
704 ;AND KERNEL, USER AND SUPR DATA SPACE 
705 001552 012602 MOV (SP)+,R2 TRESTORE REGISTERS 
706 001554 012601 MOV (SP)+,R1 
707 001556 012600 MOV SP)-, ; 
708 001 RTS ; RETURN 
710 ;ROUTINE TO INITIALIZE PDR’S 
712 001562 012702 000020 PDR: MOV _—s- #16. R2 SINIT CNTR 
713 001566 012720 077406 i$: MOV #77406, (RO)+ SINIT POR 
714 001572 077203 S08 R2,1$ 
115 001574 000207 RTS PC ; RETURN 

H . 

qi? ;ROUTINE TO INITIALIZE PAR’S 
719 001576 mM: Qe -m ;SETUP TO INIT PAR 
720 001600 010120 1$: MOV R1,(RO)+ ; INIT 
721 001602 062701 000200 ADD #200,R1 ;GET READY FOR NEXT PAR 

e 001 022701 001600 CMP #1600,R1 ;REACHED A PART 
723 001612 001372 BNE ;BRANCH IF 
724 001614 012720 177600 MOV #177600, (RO) ;INIT PART 

725 001 RTS ; RETURN 

54 s KKEKEEAKEAKESEAKEEREKAAESAESEKEAERESESSAEESESESERESEASAEKERELCESESESEAESERESE ES 





SE eeE———————E——— EEE 
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005037 
112737 


005037 
132737 
001403 
012737 


106427 
012737 
013737 
005037 


013700 


000004 
001776 
177570 
177570 
177777 
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_SBTTL PROGRAM START/RESTART 
; PROGRAM START/RESTART HERE. 


START: RESTART: 
-SBTTL INITIALIZE THE COMMON ny 
;;CLEAR THE COMMON TAGS ($CMTAG) ARE 
MOV $$CMTAG,R6 FIRST LOCATION be. 1a CLEARED 
CMP #SWR.R6 ;;DONE? 
BNE .-6 ;;LO0P BACK IF NO 
MOV SP ;;SETUP THE STACK POINTER 


#STACK, 
; sINITIALIZE A FEW VECTORS 
#$SCOPE ,@#IOTVEC ;;I0T VECTOR FOR SCOPE ROUTINE 
$340, @810TVEC+2 ;;LEVEL 7 
SSERROR, @SEMTVEC ; ;EMT i, waa FOR ERROR ROUTINE 
#340, @8EMTVEC+2 sLEVEL 7 
eSTRAP abTaaPvec él — FOR TRAP CALLS 


SENDCT SEOPC $EOPCT ;SETUP END-OF-PROGRAM COUNTER 
SESCAPE ;;CLEAR THE ESCAPE ON ERROR ADDRESS 
.'s EOD SHE ERROR LOUP ADDRESS 
eo 2 
;;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
@SERRVEC,-(SP) ;;SAVE ERROR VECTOR 
$30000$ , A#ERRVEC UP ERROR 


VECTOR 
5:SETUP FOR A HARDWARE SWICH REGISTER 


@DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
$-1,aSWR ;;TRY TO REFERENCE HARDWARE SWR 
30002$ ;;BRANCH IF NO TIMEOUT TR 


AP OCCURRED 
;3AND THE SWR IS NOT = -1 
;3BRANCH IF NO TIMEOUT 


30001 
#30001$ , (SP) ;;SET UP FOR TRAP RETURN 


SBS B98ss8s8as08g8032 


30001$: MOV ;;POINT TO SOFTWARE SWR 
MOV SerePRee D DISPLAY 

30002$: MOV (SP)+,Q@@ERRVEC ;;RESTORE ERROR VECTOR 
CLR #PASS - ;;CLEAR PASS COUNT 
BITB gAPTSIZE. seNvM J;TEST USER SIZE UNDER APT 
BEQ ;7YES,USE NON-APT SWITCH 
MOV 3SSUREG, SUR tINO,USE APT SWITCH REGISTER 


30003$: 

"SBTTL. CONFIGURE P-TABLES IAW CPU TYPE 
; INIT A FEW MORE THINGS. 

intt: 


MTPS @PR7 ; RAISE CPU. 
MOV #I0T ,ae2 wees VECTOR AREA 


CLR $TSTNM ‘RESET THE TEST NUMBER 
sLETS CALCULATE THE VECTOR THAT THIS PARTICULAR IOP IS GOING TO 


@EKZCSRC RO 


;GET ID SWITCH SETTING 


——— ne 


M2 
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776 002076 010002 
777 002 032700 000340 


779 002106 042702 177417 

780 002 2227 177774 

761 002116 010237 050742 
ree 2122 

784 002124 042700 177417 

177776 

062700 000400 

Ls 2 002140 010037 036434 

789 002144 013737 050742 

12737 000256 


0 
a1 002220 012737 001622 
012700 051034 
803 0022 012701 000225 
804 002 005020 
805 002240 077102 
806 002242 104414 


807 
ri 002244 0001357 003964 


817 002250 012737 177777 

004737 001462 
819 002262 013700 001324 
820 005060 000054 
821 72 013700 eohnee 


ose 002 005037 177766 
002 012737 
829 002340 112777 000001 





MACRO YOS.02 Thursday 03-Apr-86 14:11 


MOV -—s- RO, R2 
BIT #340.RO 
BNE =«-_-3$ 

BIC § #tC3€9,R2 


ASH #-4 R2 
MOV R2,a¢I0P .ID 
BR 2s 


3$: BIC #tC360,R0 
ASH #-2,R0 
ADD #400, 
MOV RO, INTVEC 
001200 2$: MOV a#I0P .ID, $UNIT 
000254 MOV #256, 
000256 MOV #I0T , 84256 
MOV #14. »R2 
MOV #410,RO 
1$: MOV RO, 
ADD #2,R1 
MOV R1,(RO)+ 
MOV #I0T , CRO)+ 
SOB R2,1$ 
CALL KXINIT 
000202 4$ MOV #START ,@#202 
MOV #EL0G,RO 
MOV #ELOGN,R1 
5$: CLR CRO)+ 
SOB R1,5$ 
I$SWR 
7$: JMP AGAIN 
; 
; BOARD-UNIQUE INITIALIZATION 
; SOME OF THE CHIPS ON THESE 
; COR PREVENT US FROM 
; 
; BUS-ERRORS ARE IGNORED ( 
é . 
002426 KXINIT: MOV 
JSR 
MOV 
CLR 
MOV 
000004 MOVB 
000014 MOVB 
000024 MOV 
000026 MOV 
CLR 
000240 MOV 
176762 MOVB 
001352 MOV 
001344 MOV 
176724 MOV 
CLR 
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sMASK OFF THE ID SWITCH FIELD 
;SHIFT IT RIGHT 2 POSITIONS 
;ADD IN THE INTERRUPT VECTOR 
;-. AND THERE WE HAVE IT. 
i TE MAIL BOX 
;FIX VECTOR IN SBC 
: TH STANDARD STUFF 
VECTORS TO FIX 


sNUMBER OF 
;STARTING AT ADDRESS 410 


;PATCH VECTOR AREA 


LOOP CONTROL 
; XCT BOARD-UNIQUE INITIALIZATION. 


; ENABLE DIAG RESTART ON "200G". 


; CLEAR THE ERROR LOG (KILLS REMOTE). 

; CHECK MODE CAPT VS STANDALONE)... 

;..-AND GET INITIAL $SWR AND $QDLY. 
SKIP OVER INITIALIZERS. 


THE 
BOARDS MAY DO FUNNY THINGS 
, DOING THE RIGHT THINGS) ON POWER-UP. 
THESE ROUTINES WILL gt PS ae ee ... OR WHATEVER. 


; DISMISS BUS ERRORS. 
sINIT K2 MMU REGISTERS 


; INIT (RESET) AMZ6016 DMA CHIP. 
INIT ¢ ) NEC7201 SYNC/ASYNC CHIP. 


° 
CHANNELS. 

* SET UP RESET TRAP VECTOR. SFXBUC 
‘clear error register = 
SCTION ON UNEXPECTED PIRQ ERRORS 
: INIT (RESET 78036 PIO CHIP. 
5 aN TEND et Sa NOT EXPECTED. fae 
i ENABLE TRAP ON @-BUS RESET. 

g 


-——— 


N2 
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CONFIGURE P-TABLES IAW CPU TYPE sit ” 
834 0023/4 005037 177524 CLR aeK2CSRC >; >» EVERYTHING OFF #8 
835 002400 005037 177540 CLR @eKeCSRJ ; 7 
836 002404 000207 RETURN 


BS 
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BUS ERROR AND ILLEGAL TRAP HANDLERS. oi 







838 .SBTTL S8US-ERROR AND ILLEGAL TRAP HANDLERS. 
840 ; COME HERE FROM $SCOPE ON ANY UNDEFINED TRAP CIOT) 
841 ; WITH VECTOR ADDRESS ON TOP OF THE STACK. 
842 ; BUS-ERROR (VECTOR 4) IS A SPECIAL CASE WHERE “TRAPAX” 
843 ; DEFINES THE ACTION TAKEN AS FOLLOWS: 
844 ; 0 = AND ABORT TEST 
845 ; -1 = DISMISS wy" = 7. 
646 ; ADR = DISMISS AND RETURN TO USER AT ADDRESS SPECIFIED. 
; 
848 
849 002406 005037 177772 PIRTRP: CLR @#177772 ;CLEAR THE PIRQ REG 
50 002412 012746 000240 MOV #240, -(SP) ; 
851 002416 000004 UNXTRP: CMP (SP)+, 84 ; WAS IT A BUS-ERROR 2? 
002422 001015 BNE ; BR IF NOT. 
002424 005727 TST (PC)+ ; WAS IT ANTICIPATED 2? 
54 002426 TRAP4X: .WORD 
855 002430 0014 ” BEQ ; ERROR AND ABORT iF NOT. 
56 002432 023727 002426 177777 CMP TRAP4X, @-1 ; ALTERNATE RETURN PC ?? 
857 002440 001 BEQ ; SKIP IF NOT... 
858 002442 013716 002426 MOV TRAP4X, (SP) 5. s sELSE NEW PC 
859 002446 052766 000002 000002 18: BIS 2(SP) ; SET "V" IN CALLERS PSW 
860 002454 000432 BR ISMISS ;.. AND s 
002456 016637 177776 001122 TRAPE: MOV 2(SP),$BDADR ; GET BAD TRAP VECTOR 
863 002464 011637 001120 MOV (SP), $GDADR ;...AND PC AT TIME OF HAPPENING 
864 002470 046217 044746 MOV 5 aN 
002476 012737 04 MOV #€F7,ESADR >; >> ERROR 1, UNEXPECTED TRAP THRU VECTOR NNN... 
002504 i ERROR+1 33/7 
5 ;...AND FALL THRU 
866 00 113700 001102 ABORT: MOVB  $TSTNM,RO ; GET URRENT TEST NUMBER 
867 12 001564 BEQ AGAIN ; BR IF NONE. 
008514 300 ASL ; SHIFT UP TO A 
869 16 016000 040446 MOV $SWOSTBL(RO),RO ; GET NEXT TEST DISPATCH ADDRESS 
870 002522 162700 900002 SB #2,R0_ 5 AND BACK IT up 
@ ; ALID 
HE bosses i BLO ; USE IT oe SO. 
87 34 012700 037632 MOV $$E0P ,RO ; OTHERWISE, TAKE END-PASS. 
874 010016 1$: MOV RO, (SP) 
875 DISMISS: RTI ; NEXT TEST OR END-PASS. 
a ALWAYS COME HERE ON TRAP THROUGH 24 fae 
3 . 2 ; 
Sno NMITRP - 
i pe 032737 000200 177530 err @BITO7.GOKZCSRD :DID WE TRAP DUE TO WRITE TO TPRO? 
RS 7 001346 TST ‘WAS IT EXPECTED (TPROTR = ZERO) 
Ss 012787 002762 044746 oy LA UXTPR EMADR AA 
$3 
70 012737 045206 044752 MOV IG ,ESADR i3 2> ERROR 2, UNEXPECTED TRAP CAUSED SY WRITE TO TPRO 
002600 37 001346 i$: INC TPROTR SAA, TRAP CCCURED 
S89 002604 oaag37 000200 177530 BIC @B81T07,@K2CSRD ;CLEAR FLAG 
888 002612 000447 BR NMIEND 
889 002614 RSTRAP: ;FXBJC 
890 002614 032737 004000 177530 BIT @B1T11,@8K2CSRD ;WAS TRAP CAUSED BY BINIT? 
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BUS-ERROR AND ILLEGAL TRAP HANDLERS. 7 a 


891 002622 001420 BEQ HAL TRP 
892 002624 005737 001344 TST @ORFLAG ; WAS TRAP EXPECTED? sFX8UC 
893 002630 001407 BEQ i$ ; NO, CALL ERROR sFXBUC 
894 002632 012737 002734 044746 MOV  § @UNXRES.EMADR ss; ; \\ 
012737 045206 044752 MOV @NOSIG,ESADR ;; >> ERROR 3, UNEXPECTED RESET TRAP 
104003 ERROR+3 33/7 
895 002650 001344 1$ @eRFLAG ; SAY TRAP OCCURRED sFXBUC 
8% 002654 7 177530 BIC $4000,86177530 ; ... AND CLEAR FLAG sFX8UC 
897 002662 000423 NMIEND ; AND EXIT sFXBUC 
898 002664 HAL TRP: 
899 002664 032737 001000 177530 BIT #B1T09,@8K2CSRD ;WAS TRAP CAUSED BY BHALT? 
900 002672 001417 BEQ NMIEND ; 
901 002674 005737 001350 TST @eHLTFLG ;WAS TRAP EXPECTED? 
902 002700 001407 BEQ i$ 
903 002702 012737 003015 044746 MOV § SUNXHLT.EMADR) so; ; \\ 
002710 012737 045206 044752 MOV @NOSIG.ESADR ;; >> ERROR 4, UNEXPECTED BUS HALT 
002716 104004 ERROR+4 aff 
904 002720 005237 001350 1$: INC @eHLTFLG ;SAY HALT TRAP OCCURRED 
905 002724 042737 001000 177530 BIC #81109, @@K2CSRD ;CLEAR HALT FLAG IN CSR 
906 002732 000002 NMIEND: RTI RETURN. sFXBUC 
907 002734 125 116 105 UNXRES: .ASCIZ /UNEXPECTED RESET 
908 62 125 116 105 UNXTPR: .ASCIZ /UNEXPECTED TPRO WRITE TRAP/ 
909 003015 125 116 105 UNXHLT: _ASCIZ /UNEXPECTED HALT TRAP 
911 ;+ 3FX8JC 
912 ; ALWAYS COME HERE ON TRAP THROUGH 130. sEXBIC 
” ; X8JC 
914 003042 005737 001352 BITRAP: TST @eBFLAG ; WAS TRAP EXPECTED? FXBUC 
915 003046 001002 BNE i$ ; NO, JUST DISMISS. 
916 003050 005237 001352 INC BOBFLAG ; SAY TRAP OCCURRED. sFXBUC 
917 003054 i$ RTI ; AND RETURN. FXBUC 
919 ; 
920 ; COME HERE ON UNEXPECTED PIRQ INTERRUPT IN ARBITER 
921 003056 005037 177772 UNEXPT ; CLR @e177772 :Clear the PIRQ 
922 003062 000002 . 


;COME HERE ON END OF PASS 


924 
925 
926 000005 3 a 
927 003066 013746 050742 @OI0P.ID,-(SP) ;PUSH IOP ID NUMBER ONTO STACK 
928 003072 1 popes) 003102 if 
003076 1 : sTYPE ID NUMBER 

930 003100 ss 2¢ 
1 003102 103 <CRLF>/CZKXA - FUNCTIONAL TEST OF KXJ11-CA ID@ / 
Q 154 
934 003154 000230 0 SET CPU 0... 

oes 003156 000400 TST1i +3. AND FALL THRU: 

937 

38 


KEE AEARAA HEE EKERAEEEA EEA REE ESE 





DCJil CPU 
, FhEEREEEEEEEEEEEESEESEDESEEEESEEEESEEEES 


ST SP 33 SET A CLEAN ST 
#-1, x :; DISMISS BUS ‘ 








160 000004 
62 Ole 001100 
003166 Ol2 177777 





DS 
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T1 OCJ11 CPU 
003174 005037 044742 CLR EMPRE 3; CLEAR ERROR PREFIX. 
003200 BR 33 NEXT. 
003202 000137 $: JP TST2 3; BYPASS. 
104415 003214 30005$: T ° 3; PRINT TEST NUMBER AND NAME. 
003212 BR 30006 $ ;3;..-AND SKIP OVER THE ASCII. 
003214 040 040 104 yy \ DCJ11 CPU\ 
003230 30006 $ : 
939 003230 J11REG: 
940 ;This test does a etinantery test of the DCJ11 chi > ¥F face it 
941 ;folks; if we got through the power up stuff then ;DCJ11 is probably 
942 ;functi onal. 
943 ;The test accesses the on chip registers. Many of the registers will have 
944 ;been accessed during the initial:zation nicro-reut ine, and the power 
paz sup routine. 
; 
947 003230 012737 003556 044746 MOV #CPUER , EMADR 3; SET ERROR MESSAGE... 
003236 012737 045206 044752 MOV #NOSIG,ESADR 3;3...AND SIGNATURE er 
0032 NOP 3;..-ERROR WILL BE CALLED LATER. 
948 003246 000007 MFPT ;What t Bo ener is this? 
949 00 022700 000005 CMP #5,RO :5= DCJ processor 
oat 00 001401 BEQ 100$ ‘in ;Branch if. it's. ea DCJil 
$3 
3; >> ERROR 5, 
003256 104005 ERROR+5 3377 
336 : envi iveament or we have a 
95 § 9 problem 
003260 012737 177777 002426 100%: MOV #-1, TRAP4X :Ant ici pate NXM 
955 003266 005037 177766 CLR 90177766 ;Write error register with zeros 
956 003272 102403 BVS 101$ ;NXM sets — $i 3 
957 003274 005737 177766 TST 90177766 sAccess CPU e ror register. (internal 
958 ; register pases <1:0> = 1,1) 
959 003300 102001 BYC i$ 3 
960 003302 101$: = 
3 
33 >> ERROR 6, TIME OUT ON ERROR REGISTER ACCESS 
003302 104006 ad 





internal repieters of the DCJ11 


oon So 
HOV $teapax a ee Sa 


737 177776 | siting 








IRQ. It should have been | : 
eared by the initialization microroutines. 
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T1 DCJ1i1 CPU 
978 3z7\\ 
:: >> ERROR 10, 
003370 104010 0 3377 
979 003372 005737 177752 3$: TST 9#177752 sAccess the Cache Hit/Miss Register 
980 003376 001401 BEG ; Since cache isn't i lemented we 
- ; should be logging all misses 
3; >> ERROR il, 
003400 104011 ERROR+11 3377 
983 003402 4$: 
003402 000460 TSTt2 
ss seoesceneseccnnns;;cessegnnennnnsentetseeeseesennsesesesennsseee 
3 T2 LOCAL K2 REGISTERS 
. ee ee 
003404 000004 TST2: SCOPE 
003406 0127 001100 MOV #STACK , SP ;; SET A CLEAN STACK. 
003412 012737 1 002426 MOV $-1, TRAP4X 3; DISMISS BUS-ERROR 
3420 005037 044742 CLR EMPRE ;; CLEAR PREFIX 
003424 BR 30004 * 3:3 SKIP 
3426 000137 005652 30007$: JP TSTs ;; BYPASS 
003432 104415 003440 30008$: TSNAME, .+4 33; PRINT TEST NUMBER AND 
003436 000413 BR 30009$ .AND SKIP OVER THE ASCII. 
3440 040214 “ASCIZ \ LOCAL K2 REGISTERS\ 
003466 $: 
985 5p RRERAEEREAEEEEEEEEREREEESSRSEREEEREERESEEEREAEERREEERRERERERE ERE 
;*TEST 2.1 SYS STERS 
+t th ORESEEESS SSS SEERESELELEEESESE SEE ELESEREEEEEEASS EERE REESE ES 
ope, 003466 te.1: 
987 ;Thie test will access the system registers. This causes a DCJ11 bus cycle 
+ swith signals 6S<1:0> = 0,1 
$ 
990 00 012737 003571 044746 MOV #SYSER .EMADR 3: SET ERROR MESSAGE.. 
003474 012737 045206 044752 MOV @NOSIG,ESADR 3 ..AND SIGNATURE POINTERS. . 
003502 NOP : ERROR WILL BE CALLED LATER. 
991 003504 012737 003524 002426 MOV 05$ , TRAP4X ;Anticipete NXM 
992 003512 005737 177746 TST @0177746 ;Access cache control register 
993 003516 005737 177750 TST 94177750 sAccese Maintenance Register 
003 000401 BR 7$ : 
995 003524 5$: a 
33 
3; >> ERROR 12, SYSTEM REGISTER ERROR 
003524 104012 ERROR+12 8377 
996 003 005037 002426 7$: CLR TRAP4X 
997 00 005737 177746 TST 90177746 ;Cache control ister is a dl 
998 ta ge sue Senuael in the DCJi 
should; be be cleared on te ieh ication 
1930 003536 001401 BEQ 10$ “i ; 
$8 
33 >> ERROR 13, DCJ11 CACHE CNTRL REG NOT CLEARED 
003540 104013 ERROR+13 33// 
1 ;Cache control register isn’t clear. 
es 003542 132737 000060 177750 10$: BITB #tB00110000 ,a¢177750 ie this a . — 4 _— reg 
; eccess 1:0> = 
iene 003550 001001 BNE 11$ = ; ID code in maint. register 
33 





x 


KXJ11-CA FUNCTIONAL TEST 
T2.1 SYS REGISTERS 
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;; >> ERROR 14, MAINT REG ID NOT CORRECT 






003552 104014 ERROR+14 7 
1007 003554 000421 11$: BR K2CSRS 
1008 003556 200 «=: 103.—S/ «120 :«<CPUER: .ASCIZ <CRLF>/CPU ERROR/ 
1008 003571 200123131 SYSER: °ASCIZ <CRLF>/SYSTEM REGISTER ERROR/ 
1011 5 ESESSSSESSSSESSSSSESSSSSSESRSSSSSSSSESSSSSSSREKASEKSEKEKKERLEKEAEREERE 
;sTEST 2.2 CONTROL/STATUS REGISTERS 
i 3 ee ee 
1012 ; 
1313 ;Test the K2 control and status registers 
» 
1015 177532 Q1R=177532 
° 
1017 003620 012737 004715 044742 K2CSRS: MOV —-#CSRADR, EMPRE ERROR MESSAGE PREFIX 
1018 003626 012737 004662 044746 MOV  @CSRER,EMADR ;; SET ERROR ' 
003634 012737 045206 044752 MOV. @NOS7S.ESADR  ;;...AND SIGNA 
2 0900240 NOP $3. /ERROR WILL BE CALLED LATER 
1019 003644 012737 177777 002426 MOV. @-1, TRAPAX sANTICIPATE NXM 
1020 003652 112737 000101 004676 MOVB +<12.> SASCIT FOR ERROR MESSAGE 
1021 003660 012704 177520 MOV “RA SSTART OF K2CSRS 
1022 003664 011403 MOV (R48), RS A 
1023 003666 102414 BVS :NXM IF V BIT SET 
1024 003670 052703 177400 BIS $177400,R3 ;TRY TO WRITE UPPER BYTE 
1025 : 'T BE ABLE TO 
1026 003674 010314 MOV «RB, (RA) SWRITE K2CSRA 
1027 003676 102410 BVS 
1028 003700 042703 177400 BIC $1 77400,R3 ;CLEAR UPPER BYTE 
1029 003704 020314 CHP ORS, (RA) SUPPER BYTE IN R4 SHOULD BE ZERO 
1030 003706 001004 BNE «S$ 
1031 003710 110324 MOVB «RS, (R4)- :TEST LOW BYTE OF K2CSRA 
1032 003712 102402 BVS «S$ 
1033 003714 105014 CLRB = (R4) :WRITE UPPER BYTE 
1034 003716 102001 BveOséiS :V BIT INDICATES THAT TIMEOUT OCCURRED 
1035 003720 S$: . 
33 
33 >> ERROR 15, ERROR IN K2CSRA 
003720 104015 ERROR+15 3/7 
1036 003722 1s: 
1037 003722 112737 000102 004676 MOVB -@'B, SOCSRER+<12. > sASCII FOR ERROR MESSAGE 
1038 003730 012708 177522 MOV - @K2CSRB, sPOINT TO K2CSRB 
1039 003734 011403 MOV (R4),R3 ;READ_K2CSRB 
1040 003736 1 BVS sé :NXM_IF V BIT IS SET 
1041 003740 010314 MOV «RS, (RA) iWRITE. KECSRB 
1042 003742 1 BVS «6 
1043 003744 105724 TSTB (R4)+ TRY BYTE ACCESS TO LOW BYTE 
1044 003746 1 BVS sé 
1045 003750 105724 TSTB (RAs bs BYTE TO HIGH BYTE 
1046 003752 102001 Bvc ;SHOULD NOT TIME OUT 
1047 003754 6$: - 
$3 
a os is >> ERROR 16, ERROR IN K2CSRB 
ERROR+ 16 33 
1048 003756 112737 000103 004676 2$:  MOVB  #’C, @@CSRER+<12.> sASCII FOR ERROR MESSAGE 
1049 003764 012704 177524 MOV :POINT T 
1050 003770 011403 MOV © CR4), RS" TEST 
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12.2 CONTROL/STATUS REGISTERS ls neal 


003772 102410 BVS 7$ ;NXM IF V BIT SET 
1052 003774 010314 MOV R3,(CR4) sWRITE K2CSRC 
1053 003776 102406 BVS 73 : 
004000 105714 TSTB (R4) sREAD LOW BYTE 
1055 004002 102404 BVS ; 
1056 004004 110324 MOVB RS, (R4)+ ;WRITE LOW BYTE 
004006 102402 BVS ; 
1058 004010 105714 TSTB Ss (RA) ;READ HIGH BYTE 
1059 004012 102001 BYC 3$ ;SHOULD NOT TIME OUT 
1060 004014 7$: 
33 ‘* ERROR 17, ERROR IN K2CSRC 
1061 004014 104017 ERROR+17 33// 
1062 004016 112737 000104 004676 34: MOVB = #’D , @#CSRER+<12.> ;ASCII FOR ERROR MESSAGE 
1063 004024 012704 177530 MOV R4 ;POINT TO K2CSRD 
1064 004030 011403 MOV (R4),R3 ; K2CSRD 
1065 004032 102406 BVS 10$ ;NXM IF V BIT IS SET 
004034 010314 MOV R3,(R4) ;WRITE K2CSRD 
1067 004036 102404 BVS 1 ; 
105724 TSTB 3s (4) ;LOW BYTE READ 
1069 004042 102402 BVS 10$ ; 
1070 004044 105724 TSTB 3s (R4)+ ;HIGH BYTE READ 
1071 004046 102001 BVC 4$ sN IF V BIT IS SET 
1072 004050 10$: i 
33 
;; >> ERROR 20, ERROR IN K2CSRD 
i 104020 ERROR+20 33/7 
1074 004052 112737 000112 004676 4$: MOVB = @' J, @@CSRER+<12.> ;ASCII FOR ERROR MESSAGE 
1075 004060 012704 177540 MOV ;POINT TO NEXT CSR 
1076 004064 011403 MOV (R4),R3 ;READ K2CSRU 
004066 102406 BVS ii$ ;V BIT SET BY NXM 
1078 004070 010314 MOV R3,(R4) ;WRITE K2CSRU 
1079 004072 102404 BVS ;V BIT SET BY NXM 
004074 110324 MOVB = RB, (R4)+ ;WRITE LOW BYTE 
1081 004076 102402 BVS i$ : 
004100 105014 CLRB R4) ;WRITE HIGH BYTE 
1083 004102 102001 BVC 8¢ | ;V BIT SET BY NXM 
1084 004104 118: - 
; 3% 
33 >> ERROR 21, ERROR.IN K2CSRU 
pe 004104 104021 ERROR+21 33// 
1086 004106 112737 000106 004676 83: MOVB = #’ F ,@8CSRER+<12.> ;ASCII FOR ERROR MESSAGE 
1087 004114 012704 177534 MOV @K2CSRF R4 sPOINT TO NEXT CSR 
1088 004 011403 MOV (R4),R3 
1089 004122 BVS 'V BIT BY NXM 
004124 010314 MOV R3,(R4) ;WRITE 
1091 004126 102001 BVC 93 ;V BIT SET BY NXM 
1092 004130 12$: os 
33 
33 >> ERROR 22, ERROR IN K2CSRF 
004130 104022 ERROR+22 33/7 


1093 
1094 004132 112737 000110 004676 93: MOVB = @°H, @@CSRER+<12.> ;ASCII FOR ERROR MESSAGE 
MOV @K2CSRH,R4 


1095 004140 012704 177536 sPOINT TO K2CSRH 





H5 
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T2.2 CONTRGL/STATUS REGISTERS 
1096 004144 011403 MOV (R4),R3 ;READ K2CSRH 
1097 004146 102402 BVS 13$ ;NXM SETS THE V BIT 
1098 004150 010314 MOV R3,(R4) ;WRITE K2CSRH 
1099 004152 102001 BvC 153 ;NXM SETS THE V BIT 
1100 004154 13$: 
3; >> ERROR 23, ERROR IN K2CSRH 
0041 104023 ERROR+23 33// 
1101 004156 012704 177532 15$: MOV @K2QIR.R4 ;POINT TO QBUS INTERRUPT REGISTER 
1102 004162 005714 TST (R4) ;READ K2CSRH; SHOULD NOT TIME OUT 
1103 004164 102402 BVS 14$ : 
004166 005014 CLR (R4) ;WRITE K2QIR 
1105 004170 102007 BvC 16$ ;NXM SETS THE V BIT 
1106 004172 14$: 
004172 012737 004700 044746 MOV ; th 
012737 045206 044752 MOV #@NOSIG.ESADR ;; >> ERROR 24, ERROR IN K2QIR 
004 104024 ERROR+24 33/7 
1 107 004210 005037 002426 16$: CLR TRAP4X 
1109 5 EREREKAESESSESEEEEARESAEREAESRESERESEASECRSESERAEEESERERERASE ERE 
;*TEST 2.3 CSR DATA TEST 
004214 i Ce ee a ee 
1110 004214 012737 044746 MOV @CSRER,EMADR  ;; SET ERROR ME aa 
004222 012737 045210 044752 MOV #€F2,ESADR ;3...AND SIGNA INTERS 
004230 000240 NOP $3 BE CALLED LATER 
1111 004232 012737 004731 044742 MOV SCSRDAT , EMPRE PREF 
1112 004240 112737 000101 004676 MOVB  #'A, @@CSRER+<12.> ;ASCII FOR ERROR MESSAGE 
1113 004246 012704 177520 MOV R4 
1114 004252 011403 MOV (R4),R3 
1115 004254 106427 000340 MIPS § #PR7 ;NO INTERRUPTS 
£116 004260 012702 000252 MOV $252 ,R2 ;SET AND CLEAR ALTERNATE BITS 
1117 004264 010214 MOV R2,(R4) ; 
1118 004266 020214 CMP R2,(R4) ; 
1119 004270 001005 BNE S$ 
1120 004272 000241 CLC 
1121 004274 006002 ROR R2 sR2 =125 
112 76 010214 MOV R2,(R4) ;SET AND CLEAR ALTERNATE BITS 
1123 004 020214 CMP R2,(R4) : 
1124 004302 001407 BEQ t ee 
1125 004304 010437 001120 S$: MOV R4, $GDADR 
1126 004310 011437 001126 MOV (R4), $BDDAT 
1127 004314 010237 001124 MOV R2, $GDDAT - 
3 
+; >> ERROR 25, DATA ERROR IN K2CSRA 
004320 2 t/ 
1129 004322 010314 1%: MOV ;RESTORE CSR 
1131 004 112737 000103 004676 MOVB ;ASCII FOR ERROR MESSAGE 
1132 004 012704 1 MOV ; 
1133 004 011403 MOY ; 
1134 004 10302 Mow ;GET R3 CONTENTS 
1135 004342 702 000017 BIC ;TAKE OUT LED BITS 
il 012714 000372 MOV ;TEST BITS 
1137 000012 BIS ; 
1138 14 CMP 31S R4 OK? 
1139 004360 001010 BNE ; 





is 


a -CA bY one TEST 
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CSR DATA TEST _ 





1140 004362 042702 000017 BIC #17,R2 ;TAKE OUT LED BITS 
141 004366 012714 000365 MOV $365, (R4) : 
1142 004372 052702 000005 BIS ; 
1143 004376 020214 CMP R2.(R4) :IS R4 OK? 
004400 001407 BEQ 3$ 
1145 004402 010437 001120 7$: MOV R4, $GDADR 
004406 011437 001126 MOV (R4), $BDDAT 
1147 004412 010237 001124 MOV R2, $GDDAT - 
;; >> ERROR 26, K2CSRC DATA ERROR 
004416 104026 ERROR+26 $3 
1149 004420 010314 3$: MOV R3, (R4) 
150 004422 112737 000112 004676 MOVB  #'J,@8CSRER+<12.> ;ASCII FOR ERROR MESSAGE 
1151 004430 012704 177540 MOV J,R4 ; 
1152 004434 011403 MOV (R4),R3 ; 
1153 004436 012702 000252 MOV R2 ;SET AND CLEAR ALTERNATE BITS 
1154 004442 010214 MOV R2,(R4) ; 
1155 004444 012701 000212 MOV $212,R1 
156 004450 020114 CMP R1,(R4) : 
1157 004452 001007 BNE 11$ 
1158 004454 000241 cLC 
1159 004456 2 ROR R2 sR2 =125 
004460 010214 MOV R2,(R4) ;SET AND CLEAR ALTERNATE BITS 
1161 004462 012701 000105 MOV #105,Ri : 
004466 020114 CMP R1,(R4) : 
1163 004470 001407 BEQ 8$ 
1164 004472 010437 001120 11$: MOV R4, $GDADR 
1165 004476 011437 001126 MOV (R4), $BDDAT 
1166 004502 010137 001124 MOV Ri, T a 
23 
3; >> ERROR 27, K2CSRU DATA ERROR 
sid 004506 104027 ERROR+27 33// 
1169 004510 010314 8$: MOV 
1170 004512 112737 000106 004676 MOVB ;ASCII FOR ERROR MESSAGE 
1171 004520 012704 177534 MOV ;POINT TO NEXT CSR 
1172 004524 011403 MOV ; 
1173 004526 012714 125200 MOV ;ALT PATTERN 
1174 004 012701 125200 MOV 
1175 004536 02011 CMP 
1176 004 1 BNE 
1177 004542 012714 052400 MOV ;NEXT ALT PATTERN 
1178 004 012701 052400 MOV 
1179 004 114 CMP 
1180 004554 001407 BEQ. 
1181 004556 010437 001120 12$: MOV 
1182 004 011437 001126 MOV 
1183 004566 010137 001124 MOV 
33 7? ERROR 30, K2CSRF DATA ERROR 
004572 104030 ERROR: 
1185 004574 010314 9$: MOV R4 ;RESTORE 
004576 112737 000110 004676 MOVB  #’ H, @@CSRER+<12.> ;ASCII FOR ERROR MESSAGE 
7 004604 012704 177536 MOV R4 
1188 004610 011403 MOV : 
1189 004612 012702 052525 MOV 
1190 004616 010214 MOV ;WRITE ALT PATTERN 








BR ete MRA EAA POOR OEE ORMAD 64 AAS EAS ONE Ah? COMES SOS ¢ ADAP LES ew ~ a) oe ) re a 





JS 
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72.3 CSR DATA TEST 
1191 004620 021402 CMP (R4),R2 ; 
1192 004622 001005 BNE 13$ 
1193 004624 000241 CLC 
004626 0061 ROL ;SHIFT PATTERN 
1195 004630 010214 MOV R2,(R4) ;WRITE PATTERN 
96 32 CMP ( Dy ; 
1197 004634 001407 BEQ 10$ 
001120 13$: MOV R4, 
1199 004642 011437 001 MOV (R4), $BDDAT 
1200 010237 001124 MOV R2, $GDDA . 
33 >> ERROR 31, K2CSRH DATA ERROR 
004652 104031 ERROR+31 33/7 
1202 004654 010314 10$: MOV R3,(R4) ;RESTORE CSR 
1203 004656 000137 004740 LOCTPR | 
105 122 ASCIZ /ERROR IN CSRX/ 
700 105 122 122 /ERROR IN QIR/ 


QIRER: .ASCIZ 
1206 004715 101 104 104 CSRADR: .ASCIZ /ADDRESSING / 
1207 004731 104 101 124 CSRDAT: .ASCIZ /DATA / 


EVEN 
sNow test the TPRs from the K2 side 





1210 
1211 7 TPROO=175000 
1212 175002 TPRO1=175002 
1213 175004 TPRO2=175004 
1214 17 TPRO3=1 
1215 175010 TPRO4=175010 
1216 175012 TPROS=1 
1217 1750 TPRO6=175014 
1218 175016 TPRO7=175016 
1219 1750 
1220 175022 j=) 
1221 175024 TPR10=175024 
1222 175026 TPR11=175026 
1223 175030 TPR12=1 75030 
1224 175032 TPR13=175032 
1225 175034 TPR14=175034 
i359 175036 i 
; 
1228 ;  RPPPSEORESASSSRSAASEASSEASESESSRRRASESRESEERRRERRREEEREEEEEERES 
;*TEST 2.4 LOCAL SIDE 

nree a a cA pe ha tra 
1229 004740 005037 044742 LOCTPR: CLR EMPRE 3 ;CLEAR ERROR MESSAGE PREFIX 
1230 004744 042737 000100 177530 BIC . Lg oe TPR ACCESS 
1231 004 013746 175000 MOV a4 ; SAVE S OF TPROO 

013746 175002 MOV ) ee Sate 
1233 004762 012704 1 MOV sPOINT TO 
1234 004766 012737 177777 002426 MOV sANTICIPATE NXM 
1235 004774 011403 i$: MOV ’ READ THE 
1236 004776 102410 BVS 23 3V BIT NXM 
1237 010314 MOV R3,(R4) WRITE 
1539 00 062704 000002 ADOC SOINT Ra TO NEXT. TPR 
; 

1240 005010 175040 CMP #TPR15+2,R4 ;DID WE READ/WRITE ALL TPRS? 
1241 eats 001367 BNE i$ 
1242 16 BR 3$ 





KS 


ay a CA FUNCTIONAL TEST 
T2.4 LOCAL SIDE TPR ACCESS TEST 


1243 005020 
1244 005024 
005032 


1245 
1246 005042 
1247 


1268 005142 
1269 005146 
1270 005150 


1274 
1275 005202 
1276 005206 


1279 
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044746 
044752 


044746 
044752 


177530 


044746 
044752 


3$: 


;#TEST 2.5 


T2.5:: 
DATPR 


1$: 


2s: 


3$: 


S$: 
6$: 


4$: 


$TPRER 
MOV #LA16,ESADR 
ERROR+32 


$125252,R3 
#52525 ,R2 


8TPROO 
ees 

#1 75040,R4 

1 PROO, R4 
R3, (R4)+ 

5$ 
#TPR15+2,R4 
#125252,R2 
STPROO,R4 
#125252 ,R2 
#52525.R5 

R2. @®¢GDDAT 
R3,@0$GDDAT 
Ra BekBDADR 
STPRDER, EMADR 
oF 2, ESADR 
ERROR+33 


| 


T 


(SP +, @6TPROL 
@éTPROO 


MOV 
MOV (SP)-, 


BIS  #B1T06,@8K2CSRD 


s#TEST 2.6 


U 
ji toenesnaionnenrennenerne nee TT eee 
sFIRST SLU ADDRESS 


- ‘ANTICIPATE NXM 


#177560,R2 
MOV 4, 

e-i @ETRAPAX 
TST Re) 








Page 35 


33\\ 


3; >> ERROR 32, TPR TIMED OUT ON LOCAL ACCESS 


33\\ 


33// 


ss\\ 


33; >> ERROR 34, SLU1 REGISTER TIMED OUT ON READ 


33/7 


CLR TRAP4X ;LOOK FOR UNEXPECTED NXMS 
5 sSbSSessesessesssesesesessessseeeseeeseseseTeessteseseeesseesesS 


LOCAL SIDE TPR DATA 
; APCS eee Seeeeeeeeseeereceeeeeceeeeeeeeeeeeeeeeeneeness 


;INIT R3 WITH DATA 
;INIT R2 WITH DATA 

;POINT TO FIRST TPR 

;WRITE CHECKER BOARD TO TPR ARRAY 
;DID WE RUN OUT OF TPRS YET? 


;POINT TO TPROO 


;CHECK DATA 


;BRANCH IF B 
;CHECK DATA 


sBRANCH IF 


; BAD 
;DID WE CHECK ALL THE TPRS? 
;DID WE TRY BOTH PATTERNS? 


;RESET 


; POINTER 
; CHANGE PATTERN 


sERROR CALL DATA 


;GET BAD DATA 
;.. AND FAILING TPR ADDRESS 


33 >> ERROR 33, BAD DATA IN TPRS 


sRESTORE TPRS 
‘RE-ENABLE TPR ACCESS FROM QBUS 


3 foe game Rg OBO Era ta naecmcaeateacaa 





RE EO ETT 






ra 
ve) 


Seek 


AUUUWUUUUWUI 
PPT TAP OL OT TOT OTN 


SERESSESRESERSS 


OOAIMNUPUM-HO 


S 
aS 


yd ed ed ed ed eed ed need ed aed eed ed eed ed ed eee eed eed ed eed ed dd ed ee 


a 


SHU 


2s 
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ACCESS TEST _ | 
000010 MOV #10,R1 
3$: TSTB ss (R2)+ 
BYC 4$ 
005573 044746 MOV  #SLUITO.EMADR § ;;\\ 
045206 044752 MOV ends IG,ESADR 33> ERROR 35, SLU1 REGISTER TIMED OUT ON BYTE READ 
4$: SOB R1,3$ 
§ gp EESSESSSSEESESESSEAKESSSSSSESSEAKESSERSERECERAAKKEKESEKEREESEAREREKESLESESE RSE 
;#TEST 2.7 TC ADDRESS Ss 
a aa pera ag 2 5 aa lanl tna: Witt nae 
174400 #174400,R2 ;FIRST DMA ADDRESS 
177777 002426 MOV $-1, BE TRAPAX ;ANTICIPATE NXM 
i$: TST (R2)« ; 
BYC 2$ ; 
001120 MOV R2, $GDADR 
005631 044746 MOV #DICTO,EMADR 3 ;;\\ 
045222 044752 MOV @LALGHE ,ESADR 3 >> ERROR 36, DTC REGISTER TIMED OUT ON READ 
+ a3 
174540 2$: CMP #174540 ,R2 ; 
BNE i$ 
gg EEKESEKEEKEKEEAKAKEAEEERSESSRSESEAREKAEKAEKEKAEKEKKREREKEKEKEKEREKESEE 
;#TEST 2.10 SLU2 ACCESS TEST 
a ee ee 
175704 MOV #175704 ,R2 
CLR (R2)- ;WRITE ONLY 175704 
BVS 10$ 
CLR (R2)+ ; “ 175706 
BVS 10$ 
000004 ADD $4,R2 ;BUMP UP TO 175714 
CLR (R2)- ;WRITE ONLY 175714 
BYS 10$ 
CLR CR2) ; “ 475716 
BVS 10$ 
175700 MOV 9175700, 
175704 MOV #175704, 
5$: CLR CR3) ;sRegister Pointer = 0 
000001 MOV —s« #1, R11 : 
i$: a | (Re) sRead the status registers 
MOV R1, (CRS) ;Next status register 
a Ri ; 
000003 $3,R1 : 
BNE i$ 
TST (R2)+ ;Increment R2 by 2 
TST (R2)- sRead the Receiver Data Buffer 
BVS 10$ : 
ae sac?* ;Try to read control registers; should time-out 
ie i :Try to read xmit buffer; should time-out 
H 
175720 CMP #175720,R2 ; 
BEQ 15$ 
175714 MOV $175714,R3 
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175710 


001120 
005612 
045222 


MOV #175710,R2 
BR 3$ 


10$: MOV R2, $GDADR 
044746 MOV #SLU2TO.EMADR :;\\ 
044752 MOV #LAI6M2.ESADR  ;; >> ERROR 37, SLU2 REGISTER TIMED OUT 
ERROR+37 :3// 
15$: 
TST3 ; 
122 TPRER: .ASCIZ / 
TPRDER /TPR ERROR/ 


125 SLU2TO: .ASCI 
103 gy -ASCIZ /DTC TIMED-OUT/ 
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12-10.  SLU2 ADDRESS ACCESS TEST _ ™ 
1347 ; 
1348 ;MODULE NAME: RAMBO - K2 512KB RAM TEST 
1350 * AUTHOR : HENRY ENMAN CREATION DATE 28-JUNE-85 
1352 SFUNCTIONAL DESCRIPTION 
354 ; THIS TEST PROVIDES A FUNCTIONAL TEST OF 512K BYTES OF DYNAMIC 
355 ; THE KXJ11-CA MODULE. ANY ERROR IS CONSIDERED FATAL AND 
1356 ; WILL CAUSE AN EXIT FROM THE TEST. THE PROGRAM EXECUTES IN 
1357 ; KERNEL MODE WITH MEMORY MANAGEMENT, AND 22 BIT 
1358 ; ENABLED. PRIOR TO TESTING THE RAM THE S OF THE STACK 
1359 ; IN THE USER D SPACE PARS. A 16 
1360 ; STACK IS SET UP USING THE SUPERVISOR I AND D SPACE PARS. THIS 
1361 ; TING THE RAM BEING TESTED OR WIPING OUT THE STACK 
1362 ; CONTENTS 
1364 ; ERRORS: ANY ERROR IS CONSIDERED FATAL AND WILL CAUSE THE TEST 
1365 : TO BE EXITED AND AN ERROR TO BE POSTED. 
1367 INPUTS: 
1368 ; 
1369 ;REGISTERS CHANGED 
1370 RO - 
1371 


B4 
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T2.10 SLU2 ADDRESS ACCESS TEST 
1373 005650 017600 TOPMEM: .WORD 17600 
1374 005652 K2RAM: 
$3 ee aa ea ee 
3* 
§ FSSSOSESESSESESSSSSSSSSESESSASESSSESSSASSSESSSS ASSET REKESEKECERDS 
005652 000004 $13: SCOPE 
005654 012706 001100 MOV #STACK , SP ;; SET A CLEAN STACK. 
005660 012737 177777 002426 MOV #-1, TRAP4X 3; DISMISS BUS-ERRORS. 
37 044742 CLR :; CLEAR ERROR PREFIX 
005672 000402 BR 30011$ ;3; SKIP : 
005674 000137 011312 30010$: JMP TST4 :3; BYPASS. 
005700 104415 005706 30011$: TS$NAME, .+4 33 PRINT TEST NUMBER AND NAME 
005704 000406 BR 30012$ 33 SKIP OVER THE ASCII 
005706 040 040 122 4 \ RAM TEST\ 
1375 005722 30012$ : 
; 
1376 :This is a test of the on board RAM on the K2 module. There are 256k 
1377 swords of RAM on the board. It consists of eighteen 256 k x 1 dynamic RAMs 
1378 ;Sixteen RAMs are for data storage and two are for storage of a 
1379 sparity bit for each byte. The data RAMs are in leadless chip carriers 
1380 ;which are mounted on ceramic substrates which form a Single In-line 
1381 ;Package (SIP). There are four data RAMs per SIP, and four SIPs per 
iae8 5 e. The parity RAMs are in standard DIP packages. 
; 
1384 the RAM is vie ea dynamic RAM control circuit which resides 
1385 sin the Data Path and LSI Bus Interface gate array, The dynamic RAM 
iter ;controller circuitry generates the si s 
’ 
1388 sthe 14 mhz, clock which also dri 
1396 sfrequency is divided down to provide 
1391 3 is sent 
es :refresh DMA 
133 ;@ DMA cycle from the DCJ11. When the DMA cycle is gran 
1394 ;refresh is , 
1395 722 005037 177572 CLR . 
1 be Ohi? 010540 000004 MOV 
139 37 002426 CLR 
1 740 012737 000340 177776 MOV 
1399 012737 011174 000114 MOV 
1400 754 00 = 
rans 760 012737 17 177672 
140 010637 177676 MOV 
1408 o0syi5 012 172300 MOV 
re 
1407 005776 012704 172352 MOV 
1408 006002 005037 177540 CLR 
1409 006006 de 000020 172516 MOV 
sate 006014 737 000001 177572 BIS 
141 ; Unexpected ity errors, non-existant traps will vector 
rth ;thru the fereei space PAR to the firmeare ROM. 





1415 ;The parity error handler in ROM will set the V bit in the PSW 
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;0n each occurence of a perity error and then do an RTI. 


;The non-existent memory error handler will cause the K2 to post 
an error indication, exit the test and return to the firmware monitor. 


D4 
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13 RAM TEST _ 
1422 ;First we'll establish ea checksum for the diagnostic stuff resident in 
1423 zthe RAM 
1424 3 
1425 
1426 006022 005002 CLR R2 
1427 012703 051506 MOV #LASTAD,R3 
1409 906032 062102 1$ SDD CRL) R2 R2 WILL HOLD SUM IGNORING CARR 
ri : +, H IES 
1430 906034 020301 CMP —séRR3 RA 
1431 006036 002375 BGE i$ 
010237 177666 MOV R2 84177666 ;SAVE CHECK SUM IN TPR1I5 
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1459 006114 
1460 120 
1461 006122 
1465 006124 
1464 006150 


=e a i a ED Oe 
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;Let’s check that the RAM is tg ag @ rudimentary fashion. Meaning that 
;the address decoders are working, rams hold data and that ref cycles 
—_s occurring. 


sin the first 32 kwords of memory each address will be written with its own 
;eaddress. The next 32 kword bank will be written with virtual address 0 = 177776 
:thru to Be address 177776 = 0. The third 32 kword bank of memory will 
;repeat the pattern in the first bank and so on... 


5 EERE ERERESEEEEEEREEEEESSSEEEEREEESEESEEEEREEEEEESEEEEEEREEEEREERERR 
;*#TEST 3. TEST 

5p RECaAaEAESAEERAEEESESERERESEAERESSEESESRES EEE EEEEESSEEEEEREEEEEES 
T3.1:: 





JSR PC ,PROMLO ;GO SEE IF PROM IS MAPPED LOW 
; AND INIT KIPARS ACCORDINGLY 
SUB #120000 , RO 
ADD RS.RO SSTARTING DATA FOR RO 
15$: MOV $4096. .R1 ;INIT COUNTER 
MOV #120000 ,R2 : 
1s: HOV RO. (R2)s ;WRITE 32 KWORDS OF MEMORY WITH ADDRESS 
S08 R1,1$ 
CMP TOPMEM, (R4) :DID WE HIT THE TOP? 
BEQ 10$ OUT OF SETUP IF YES 
ADD $200, (R4) :G0 TO NEXT 
Ts RO ;DID RO WRAP AROUND TO ZERO YET? 
2$ MOV «#4096. RI — - 
: MOV #120000 ,R2 
3$: SUB $2 ,R0 : 
MOV RO, (R2)+ ;WRITE ADDRESS WITH 2S COMPLIMENT 
;...0F ADDRESS 
S08 R1,3$ 
cr TOPHEN, CR4) ;DID WE HIT TOP 
BNE 2$ ;DID IT HIT ZERO YET? 
BR 15$ 
é 
Now check for the right stuff. 
ios: JSh | ee ~ 
° 
JSR ,PROMLO FIND LAST DIAGNOSTIC ADDRESS AND 
SINIT KIPARS AND Ri ACCORDINGLY 
SS | 
SUB #120000, RO 
ADD RS RO ;STARTING DATA FOR RO 
16$: MOV $4096. .R1 
MOV #120000 ,R2 
11$: CMP RO, (R2)+ ;CHECK THE DATA 
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1519 006376 


001044 
00 


TEST 
SSING TEST 


000002 
005650 


177676 
011006 
010634 
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BNE 
ADD 
SoB 
CMP 
BEQ 
ADD 
TST 
BNE 
17$: MOV 
MOV 
12$: SUB 
CMP 
BNE 
SOB 
CMP 
BEG 
ADD 
TST 
BNE 
BR 
21s: MOV 
044746 MOV 
044752 MOV 
ERROR 
20%: MOV 
044746 MOV 
044752 MOV 
ERROR 
172550 25$: BIT $81T10,aSWR 
BNE o. 
JMP ARCHK 
26$: 
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33\\ 


;1S DATA STILL OK? 


;DID WE HIT THE TOP? 


;GO TO NEXT WINDOW 
;I1S RO=0 


;D0 THE NEXT 32 KWORDS 


3; >> ERROR 40, CHECKSUM ERROR 


33 
3s\ 


3377 


\ 
ave ERROR 4i, 


;POSSIBLE CAUSE OF ERROR IS A 
‘BAD RAM CELL, ADDRESS DECODER 

‘OR REFRESH NOT OC 

:D0_ EXTENDED RAM TESTS? 

(NO, BUT DO CHECK THE PARITY STUFF. 


G4 


KXJ11-CA Bees TEST 
73.1 AM ADDRESSING TEST 


1614 006512 





012700 
004737 


005000 
004737 


010450 


010000 
120000 


000200 
010514 
177676 
010712 
010704 
177676 


011006 
010640 


177777 
010176 


010314 
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044746 
044752 


044746 
044752 


;Now we'll check the address decoders, and look for interaction between 


smemory cells in the same RAM. 


;* 


; 
gp FSSEEESESEASESESSEASSSRAESASESRSESSESSS SE AEs ~ -28ESRESEEKESEEEERE 
y 3. 


ee a eee 


sInitialize memory with all zeros. This uses a DATO and DATI bus cycle to RAM. 


25$: 


2 


th 


Check that writi 
ney cell at a 


;Read zeros/ compliment/ write ones at 256 k addresses starting at 
eddress 1777776 


gaSBo*e8 ences? 


a8 
S : ) 
i 


PC ,PROMLO 


;low RAM working up to 


MOV 


5 Check that writi 


_@-1, 
JSR PC, 

passes should be ail ones, KIPARS should = 17600, R2 should = 140000 

me sores at a high address does not affect a 
address 


wy cell at a lL 


;Read 


3\\ 


;Set R2 to 


sFIND LAST DIAGNOSTIC ADDRESS AND 
;INIT KIPARS AND R 


1 ACCORDINGLY 


;Use R1 as a counter 
120000 


;Write zeros at all 


addresses 
;Ensure that it is zero (DATI) 
; Branch to error if not zero 


;Loop contro 


;Have we hit top yet? 


Branch if 


{Move inden up 4 kwords 


- it again 


33 >> ERROR 42, CHECKSUM ERROR 


33// 


:Possible cause of this error 
RAM cell that can't be cleared, 


ones et a low eddress does not affect a 
igher address 


sLOAD RO WITH EXPECTED DATA 


ones/ 
31777776 working down to low RAM. 


, CLR 
JSR 


RO 
PC, $DNWRD 


compliment/ write zeros at 256k addresses starting st 


;LOAD RO WITH EXPECTED DATA 


(DATO) 





iB Caden SEED O6£BD SOBADS1LOARAS 05 TEADEDS COGRRERAERALAS CLARDSEROS® ° ERLE ELS =| ED nen eee OO LL Le TT: a aa re “aa ae 
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73.2 RAM ADDRESS DECODERS TEST ——— 7 ad 
16</ ;Check that writing ones at a high address does not affect a 
pe ;memory cell at a lower address 
1630 ;Read zeros/ compliment/ write ones starting at address 1777776 
ret working doun to low RAM 
1635 906530 012700 177777 ; MOV #-1,RO ;LOAD RO WITH EXPECTED DATA 
ites 006534 004737 010314 JSR PC,$ 
1636 {Memory should now be all ones. KIPARS should = 0 or lowest RAM. 
eH sRe should = 120000 
1639 ' Check that aritieg. ene 8 D at ea low address does not affect a 
teat ve cell at igher address 
1642 ‘Read ones/ compliment/ write zeros at 256k addresses 
ina; ;starting at address 0 working up to address 1777776 
1645 006540 005000 CLR RO ;LOAD RO WITH EXPECTED DATA 
“s 542 004737 010176 JSR PC, $UPWRD 


;Memory should be all zeros, KIPARS should = 17600, R2 should = 140000 


14 
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13.2 RAM ADDRESS DECODERS TEST - 


i681 dea ake. ona? sak lamia? otite teks oon ones at. 31 2kbyte 
; compliment/ wri addresses 
1oa5 istarting at address 1777777 working down to lowest address. 
1703 op ESSER ESSESAS ESATA SASSSSSESRESSSSSESASRESSEAKEKAKAESRERESESESEEEESE EKER 
;#TEST 3.3 RAM CELL INTERACTION TEST 
006546 i ee ee ee ee 
1704 006546 004737 010450 JSR PC, PROMLO ;FIND LAST DIAGNOSTIC ADDRESS AND 
' ;INIT KIPARS AND Rl ACCORDINGLY 
006552 013714 005650 MOV TOPMEM, (R4) ;Start at 
006556 012701 020000 30013$: MOV $8192. "RI fat Ally EE a 
006562 012702 140000 MOV #140000 ,R2 ;Set R2 =140000 
006 105142 30014$: COMB -(R2) ;Read byte/ modify / write byte 
006570 177777 CMPB—s«@-1, (RR2) ; Should 
006574 BNE 30015$ ; at if not 
006576 077105 SOB R1,30014$ _sLoop control 
006600 162714 000200 SUB (R4) ;Move window down 4 kwords 
006604 020314 CMP R3,(R4) ;Have we hit low ram? 
006606 001363 BNE 30013$ 
006610 004737 010450 JSR ,PROMLO 
006614 006301 ASL i ;MAKE IT BYTES 
006616 012702 140000 MOV #140000 ,R2 : 
006622 105142 15$: COMB -(R2) 
006624 122712 177777 CMPB —s-« #-11, (R2) 
006630 001002 BNE 30015$ 
006632 077105 SOB R1,15$ 
006634 000411 BR 30016$ 
006636 013706 177676 30015$: MOV @SUDPART , SP 
006642 012737 011006 044746 MOV @RAME, s3\\ 
006650 012737 010640 044752 MOV @FATAL1,ESADR ;; >> ERROR 44, 
006656 104044 means ERROR +44 337/ 
1705 006660 004737 010450 JSR PC,PROMLO ~ ;FIND LAST DIAGNOSTIC ADDRESS AND 
;INIT KIPARS AND R1 ACCORDINGLY 
006664 006301 ASL Ri ‘MAKE IT 
006666 BR 30018$ 
006670 012701 020000 30017$: MOV $8192. ,R1 ;Use R1 as 30017$ counter 
006674 012702 120000 MOV. #120000, Set R2 = 
006700 105012 30018¢: CLRB Re) ;Write byte CDATOB) 
006702 105712 TSTB 22) sRead. (DATI 
006704 1010 BNE 3 hg ; Branch to error if not equal 
706 105222 INCB cRe + : 
006710 077105 SOB 1, 30018% sLoop control 
006712 023714 005650 CMP TOPMEM, (R4) sHave we hit top yet? 
Soe ree geaane 000200 3 | #200, (R4) Move window 4 kwords 
. ; wi up 
006724 000761 BR 30017 
006726 013706 177676 30019$: MOV 
006732 012737 011006 044746 MOV  @RAME, 53\\ 
006740 012737 010640 044752 MOV #FATALI,ESADR ;; >> ERROR 45, 
006746 104045 ERROR+45 33/7 


Possible cause of error 
TE ee cate Te ratity. 


30020$ : 
1706 ;Memory should be all zeros. R2 = 140000, KIPARS = 17600 
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73.3 AM CELL INTERACTION TEST 
1708 rity checker/generators maintain odd i on each byte of 
Eh +4 _—s RAM. If write wrong parity is Sie than ee ee is written | 
ee 006750 000004 PARDEL : -WORD 4 ;See following comment to explain this. 
1713 a error notification does not take place immediately upon detection of 
1714 parity. When expecting a parity error a delay should be inserted 
1715 ace occurrance of the parity error and prior to checking to see that 
a ;it has occured. 
1718 006752 PARCHK : 
5p RREKEEAAAEEEEEEEAEEEEESAAEARESAESARERESEAERERERERAEEREREREERERE 
;*TEST 3.4 PARITY CHECKER/GENERATOR TEST 
_ Te RIOR i a bc aha 
006 4:: 
1719 006752 004737 010450 JSR PC ,PROMLO ;FIND LAST DIAGNOSTIC ADDRESS AND 
;INIT KIPARS AND R1 ACCORDINGLY 
1721 006756 013700 006750 MOV P sLoad RO with delay value 
1722 006762 714 000200 ADD #200, (R4) ;Make sure address used is not in program 
1723 0067 012737 007032 177672 MOV i$, ARS ;Anticipate parity errors 
1724 006774 012737 000001 177540 MOV #1, J iEneble parity error detection 
1725 007002 012702 120000 MOV # ‘ it 
1726 007006 005012 CLR (R2) Even low RAM location/ parity RAMs = 1 
1727 007010 005712 TST (R2) ;Read low RAM location 
1728 007012 077001 SOB RO,. ;Wait here for inter 4 
1729 007014 013700 006750 MOV PARDEL sLoad RO with delay va 
1730 007020 012712 000401 MOV #401, (R2) ;Make low RAM bytes odd/Par ity RAM now = 0 
1731 007024 005712 TST (R2) ;Read low 
1732 007026 077001 SOB RO,. ;Wait here for interrupt 
1733 007030 11 BR 2$ 
1734 007032 013706 177676 1$: MOV @PUDPART , SP 
1735 007036 012737 010733 044746 MOV OPARE, s\N\ 
007044 012737 010704 044752 MOV @FATALR,ESADR ;; >> ERROR 46, 
007052 ERROR +46 
1736 :Possible cause of error is bad parity 
1ie? ; RAM or parity generator/checker 
1739 007054 013700 006750 2s: MOV PARDEL ,RO sLoad RO with delay value 
1740 007060 005037 177672 CLR § @@UDPARS ; 
1741 007064 052737 000002 177540 BIS #2, 2K2CSRJ sEnable write. wreng per ity 
1742 007072 011212 MOV (R2),(R2) sWrite it in with write wr parity 
+ oaR ; .. low RAM location/ parity 
1745 007074 042737 000002 177540 BIC #2, @K2CSRJ :Disable write parity so that 
stack Bo wrong perity. 
+rei 007102 005712 TST (R2) iRead 1 low RAM location expecting parity 
1749 007104 077001 SOB RO,. F Siler to make sure we get a demand 
173 007106 102014 BvcOs3$ sg ng indication. 
3\ sError_if no parity error indicat: 
1752 007110 013700 006750 MOV PARDEL ,RO ;sLoad RO with delay value 
0071 052737 000002 177540 BIS #2, B0K2CSRU :Enable write wrong peri 4 ; 
173 007122 005012 CLR (R2) RAM beees even/Parity RAM 
1756 007124 042737 000002 177540 BIC $2 , BOK2CSRJ Disable writing wrong perity 
1757 007132 00571 TST (R2) ow RAM 
1758 007134 077001 SOB RO,. iller make sure we get a demand 
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1759 


1760 
1761 007136 
1762 007140 


6 
1764 007142 
1765 007146 
007154 


1776 200 
1777 007202 
1778 007204 
1779 007210 
007216 
007224 


5 
1791 007252 
260 
007266 
1792 
1793 
1794 007270 


012737 
12 


005202 
105012 
105212 


012737 


007204 
177676 
010733 
010704 
007246 


177676 


177777 


044746 
044752 


177672 


044746 
044752 


177672 


044746 
044752 


177672 
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; read from Jll. 


———— 


BYS 4$ ;Did a parity error occur? 
3$: CLR (R2) stry restoring correct parity 
.--prior to calling error 
MOV @eUDPAR7 , SP 
MOV #PARE , EMADR 37\\ 
MOV #@FATALR,ESADR =;; >> ERROR 47, 
ERROR+47 33/7 
:Possible cause of error is bad parity 
RAM or parity generator/checker 
4$: CLR (R2) ;Restore correct parity. 


;Test parity generator/checker with all patterns 
Check low byte parity generator/checker 


MOV #10$ , BFUDPARS ; 
CLRB (R2) ;Zero low b . 
5$: INCB (R2) ;Do all pat 
BEQ 6$ ;Loop ———_ 
BR 5$ ;Zero if no parity errors 
10$: MOV @eUDPAR7 , SP 
MOV SPARE, sz\\ 
MOV #FATALR,ESADR' =;; >> ERROR 50, 
ERROR+50 s3// 


:Possible cause of error is 
P bad parity checker/generator 
;Check high byte parity checker/qeneretor 


6$: MOV —s-: @1:1$ ,@@UDPARS 
ce Che) EE a 
;Zero hi 
7$: INCB (R2) ; l 
BEQ 8$ ;Loop ro: 
BR 7$ ;Zero if no parity errors 
11$: MOV @eGUDPART , SP 
MOV @PARE,, EMADR s3\N 
MOV #FATALR,ESADR 33 >> ERROR 51, 
ERROR+5i si// : 
: renee 1 Li is ‘ 
; pari er/generator 
8$: MOV #-1, BAUDPARS : 
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PARITY CHECKER/GENERATOR TEST _ 


1796 ;The parity RAM consists of two 256k x 1 RAM chips. One for the low 
gad :bytes and one for the high bytes of 256k words of data RAM. 
Pee sTest the low byte parity RAM if extended memory tests are wanted. 
1801 007276 032777 002000 171634 BIT #B81T10,3SWR ;D00 EXTENDED RAM TESTS? 
00 001004 BNE LOWPAR ; 
1803 007306 013706 177676 MOV @*UDPAR7 , SP ;NO, RESTORE STACK 
1804 007312 000137 011232 JMP ENDRAM ;AND EXIT TEST 
1806 007316 LOWPAR: 
fp EEESRERSEEEKESKESEAAKEEKAKAREEREKESAAAEALAEKASEERAKKAKKASEEEKERESAKERELKE 
;*TEST 3.5 LOW BYTE PARITY RAM TEST 
007316 ‘ Daim aa a aaa a tg ry ap ae 
1807 007316 004737 010450 JSR PC ,PROMLO ;FIND LAST DIAGNOSTIC ADDRESS AND 
;INIT KIPARS AND Ri ACCORDINGLY 
7322 BR 30022$ 
007324 012701 010000 30021$: MOV #4096. ,R1 ;Use Rl as counter 
7330 012702 120000 MOV #120000 ,R2 ;Reset R2 to 120000 
007334 112712 000001 30022$: MOVB #1,(R2) ;Read / modify / write 
007340 5722 TST (R2)- ; 
; Branch to error 
007342 077104 SOB Ri, ;sLoop control 
007344 023714 005650 CMP TOPMEM , (R4) Have we hit top yet? 
007350 001403 BEQ 30024$ 
007352 062714 000200 ADD #200, (R4) ;Move window up 4 kwords 
007356 000762 BR 30021$ 
007360 004737 010514 30024$: JSR PC , CHEKSUM 
007364 001422 BEQ 30025$ 
007366 0137 177676 MOV SGUDPART , SP 
007372 012737 010712 044746 MOV $CKSUM s3\N\ 
74 012737 010704 044752 MOV  @FATALR,ESADR ;; >> ERROR 52, CHECKSUM ERROR 
007 104052 +52 33// 
007410 013706 177676 30023$: MOV @PUDPART , SP 
007414 012737 010762 044746 MOV #PRAME , seN\N\ 
007422 012737 010634 044752 MOV @FATALW,ESADR ;; >> ERROR 53, 

7430 10405 * 33// ; 
;possible causes of this error 
sare bad s decoder, bad 
;MDAL, interaction between RAM cells. 

1908 007432 30025$: 
; 
tts ;Low byte data RAM should = 00000001, low byte parity RAM should = 0 
3 
1811 ;Check that writing ones at a low parity RAM address does not affect a 
th smemory cell at a higher address 
1614 ;Read zero/ es write one at 256 k low byte ity RAM locations 
ir ;starting at 0 working up to address 1 1779776 
; 
1817 007432 012700 120000 y+ sane RO 
tt 007436 004737 010046 ‘ ity ei as : ld 1 
IP peri gage ones, ow byte data RAMs shou = «- 
aese Lom byte, par = 17600, ;R2 should = 140000 
1822 Check that writing zero at a high parity RAM address does not affect a 





M4 
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13.0 LOW BYTE PARITY RAM TEST _ -_ 
4 eaaavee cell at a lower address 
1825 qne/ neautes write zero at 256k low byte be parity RAM locations 
‘ao7 ee at 1777776 working down to lowest RAM address. 
1828 007442 012700 140000 MOV #140000,RO 
185 007446 004737 007674 JSR PC, $DNPAR 
1831 sane it ~~. should = 0, low e data RAM should = 1 
1832 KIPARS should 2 0. R2 should = 120000” 
1834 Check that writing one at a high address in the low byte parity RAM 
ras ;does not affect a memory cell at a lower address 
1837 ;Read zero/ compliment/ write one starting at address 1777776 
1335 “estat. down to address 0. 
1840 007452 012700 140000 MOV + gg eine Digg 
1844 007456 004737 007674 JSR , SDNPAR 
1843 iLow Low byte par parity RAM should = all ones, Low byte data RAM should be all ones. 
1345 should = 0. R2 should = 120000 
1846 Check that writing zero at a low address in the low byte parity RAM 
ry o¥ ;does not affect a memory cell at a higher address 
1849 ;Read ones/ negate/ write zeros at 256k addresses 
tem ;starting at low RAM working up to address 1777776 
1852 007462 012700 120000 MOV #120000 .RO 
1853 007466 004737 010046 JSR UPPAR 


ce ee NRE FT RE EEA ASIC Om me 


N4 


KXJ11-CA FUNCTIONAL TEST 
13.5 LOW BYTE PARITY RAM TEST 


58 
1859 007472 


007472 
1860 007472 
1861 007500 
1862 
1863 007504 
1864 007506 
1665 007510 


77 
1878 007552 
1879 007554 
1880 007560 


pdt Lo 
1881 007576 
1882 tha 





012700 
004737 


007576 
010450 


010000 


005650 
000200 
010514 
177676 
010712 
010704 
177676 
010762 
010626 


177672 


120001 
010046 


177672 


044746 
044752 


044746 
044752 
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sTest high byte parity RAN 


HIPAR: 
gp EEESSESESSESEASSESAESSAAESEDRAACECKSEKACARAAESSESEKEREREEAKESERELESRSE 
;#TEST 3.6 HIGH BYTE PARITY RAM TEST 
i Ce ee ee 
MOV #25$ , 9@UDPARS 
JSR PC, PROMLO ;FIND LAST DIAGNOSTIC ADDRESS AND 
; INIT KIPARS AND R1 ACCORDINGLY 
INC R2 
BR 15$ 
10$ MOV #4096. .R1 ;Use R1 as a counter 
MOV #120001 ,R2 :Point to high byte 
15$: MOVB #1,(R2) ;Write zeros at all high byt 
; parity RAM locations. (DATO) 
TSTB CR2)+ ;Ensure that it is yg ™ ras 


increment 
:Make R2 = oaiee to next SRich byt byte 


INC R2 
SOB R1,15$ pega rol 
CMP TOPMEM, (R4) :Is KIPARS = Hi RAM 
BEQ 26$ 
= s+ lal Move window up 4 kwords 
26$: JSR PC, CHEKSUM 
BEQ 27$ 
MOV @GUDPART , SP 
MOV —s- @CKSUM s3\\ 
MOV #@FATALR,ESADR ;; >> ERROR 54, CHECKSUM ERROR 
ERROR +54 33// 
25$: MOV @SUDPART, SP 
MOV s3\N 
MOV  #FATALB,ESADR ++ 9? ERROR 55, 
+ 33 


55 
27$: CLR @eUDPARS 


sHigh byte date RAM should = 00000001, high byte parity RAM should = 0 


Check that writing ones at a low address in the high byte parity RAM 
idoes not affect s memory cell et 8 higher address 


; 
Read zero/ negate/write one at 256 k high byte ity RAM locations 
votert ine at lowest physical RAM sairene’*) caritine up po to address 1777777 
’ Moy #120003 Ro 

JSR UPPAR 


RAMs should be all ones, h data RAMs should = -1 
ited should party All 13: an. 


Check that writing zero at a high address in the hi perity RAM 
; iting gh byte 


— not affect a memory cell e lower 
;Read one/ negate/ write zero at 256k high byte parity RAM locations 


mc 


BS 


KXJ11-CA F 
13.6 


1 
1918 007644 


937 007664 
1938 007670 


TIONAL TEST 
BYTE PARITY RAM TEST 


912700 
004737 


012700 
004737 


012700 


004737 


013706 
000137 


140001 
007574 


140001 
007674 


120001 


010046 


177676 
011232 
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starting at physical address 1777777 working down to low RAM+1. 
; MOV #140001 ,RO 
JSR . SONPAR 


; 
we RAMs d= 
igh byte px Py = oe ft 


Check that writing one at a h eddress in the h byte ity RAM 
Se Sears Ste oe — 


;Read zero/ write one starting at physicel address 1777777 
;working down address i. 
; 


MOV #140001,R0 
JSR PC, $DNPAR 


iets” OES Cte CON Gauls - 1 


Rt cheula © oll cam. b dite WN Gadd te Cl wus 
ified haus ae eo 


sCheck thet writing zerce et 9 low address in the high byte parity RAM 
idoes not affect a menory cell at a higher address 


;Read ones/ write zeros at 256k addresses 
;sterting at ical address 1 working up to address 1777777. 
MOV «#120001, RO ;STARTING BYTE 
JSR PC, SUPPAR 
‘At this point the tenes 2 of 256k words of on board RAM 
— eS lications can now be executed from RAM, 
rane trap end interrupt vec can be initialized 
MOV —« @@UDPART, SP ;GET OLD STACK COKTENTS 
JMP ENDRAM 3 ;BAIL OUT 


KXJ11-CA FUNCTIONAL TEST 
73.6 HIGH BYTE PARITY RAM TEST 


012737 
004737 


013714 
012701 


010024 
010514 
177672 


177676 
010762 
010640 
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177672 


177672 


044746 
044752 


044746 
044752 


;SUBROUTINE TO SET / CLEAR HIGH OR LOW BYTE PARITY RAM AND TO CHECK FOR 
;PARITY ERRORS STARTING AT HIGH RAM. 
















s;ENTRY PARAMETERS: RO = STARTING ADDRESS 
$ R4 = KIPARS 
$DNPAR: MOV piel te 
JSR FIND LAST pFAGNOET TE” AD ADDRESS AND 
T KIPARS AND R1 ACCORDINGLY 
MOV stNt KIPARS to Ba of memory 
1$: MOV sInitialize Ri 
MOV ;Set R2 = starting address 
2$: SUB ;Get low byte — 
NEGB sRead /Mod /Write 
SOB —_ control 
SUB window down 4 kwords 
CMP ‘Is KIPARS = low RAM 
BNE ; 
JSR 
MOV :Set R2= start 
4$: SUB 3 
NEGB ; 
SOB ; : 
MOV :Return to 3$ on parity error 
oe 
RTS 
MOV 33 >> ERROR 56, CHECKSUM ERROR 
3$ | 






KXJ11-CA FUNCTIONAL TEST 
13.6 HIGH BYTE PARITY RAM TEST 





010154 
010450 


010000 


005650 
000200 
010514 
177672 
177676 
010712 
010704 


177676 
0762 


01 
010640 
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ee 


; TO SET / CLEAR HIGH OR LOW BYTE PARITY RAM AND TO CHECK FOR 
sPARITY ERRORS STARTING AT LOW RAM. 


“ENTRY PARAMETERS: RO = ADDRESS OF STARTING BYTE 
; R4 = KIPARS 
;ON EXIT: nee ADDRESS OF STARTING BYTE 
3 R2 = RO. 20000 
3 R3 = ADDRESS OF LOWEST RAM 
: R4 = KIPARS 
3 RS = NOT AFFECTED 
177672 jUPPAR: MOV e208, @euPARS Ant it 
: mic ri error 
JSR —«- PC, PROMLO (RET DEAGNOSTIC ADDRESS AND 
LIPARS AND Ri ACCORDINGLY 
BISB RO,R2 
BR 15$ 
10$: MOV #4096. .R1 ;Use R1 as a counter 
MOV RO,R2 ;Reset R2 to starting byt 
15%: NEGB (R2) ;Read/modify/write ones - i ~ 
; write al neat Se se OF data RAM 
INC R2 nr R2 by two to next high or low 
INC R2 -byte depending on what we're testing. 
SOB R1,15$ Low control 
cP TOPHEM, (R4) sHave we hit top yet? 
ADD #200, (R4) :Move window up 4 kwords 
BR 10$ 
255: JSR PC 
_—— 
? 
RTS 
223: MOV ‘ART , SP 
044746 MOV : s3\N\ 
044752 MOV @FATALR,ESADR ;; >> ERROR 60, CHECKSUM ERROR 
ERROR+60 13/7 
20$: MOV @GUDPART , SP ;Comes here on a parity error 
044746 MOV #PRAME , 33\\ 
044752 MOV ee ATALLESADR 4 2? ERROR 61, 
+0. 33 


spossible causes of this error 
are 
SMDAL, interaction between RAM cells. 








- 


a -CA FUNCTIONAL 


TEST 
HIGH BYTE PARITY RAM TEST 


2023 


010310 


010312 
2034 010312 


000207 


010450 


COCR CABO) « - 64 eae 2s" ++ oF 
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044746 
044752 


044746 
044752 


;SUBROUTINE TO READ / MODIFY / WRITS ALL MEMORY LOCATIONS 
s STARTING AT LOW RAM. 


* ENTRY PARAMETERS: RO = EXPECTED DATA AFTER READ/ MOD/ WRITE 
$ R4 = KIPARS 
SUPURD: 
JSR PC ,PROMLO ;FIND LAST wy te ADDRESS AND 
;INIT KIPARS AND R1 ACCORDINGLY 
BR 30027$ 
30026$: MOV #4096. ,R1 ;Use R1 as counter 
MOV #120000 , R2 ;Reset R2 to 120000 
30027$: COM (R2) iRead / modify / write 
CMP RO, (R2)+ 
oo ogg ot - ; Reanah By —, ‘ 
3002 oop contro 
CMP TOPMEM, (R4) ;Have we hit top yet? 
BEQ 30029$ 
ADD #200, (R4) ;Move window up 4 kwords 
BR 30026$ 
30029$: JSR PC, CHEKSUM 
BEQ 30030$ 
MOV @SUDPAR7 , SP 
MOV #CKSUM, EMADR s3\\ 
MOV @FATALR,ESADR ;; >> ERROR 62, CHECKSUM ERROR 
ERROR +62 33// 
30028$: MOV @SUDPAR7 , SP 
MOV @RAME,EMADR pg\\ 
MOV @FATALW,ESADR =;; >> ERROR 63, 
ERROR +63 33// ‘ 
;possible causes of this error 
sere bad address . bad 
:4D°L, interaction between RAM cells. 
30030$: 
RTS PC 





FS 






KXJ11-CA FUNCTIONAL TEST MACRO YOS.02 Thursday 03-Apr-86 14:11 P 56 
13.6 HIGH BYTE PARITY RAM TEST -_ 
2036 3 
2037 FSS POSSESS DSSS PSSST OSES SARS SS SOTO SUS OSSSS SSS SESSESSSESESsHNs 
cone ;SUBROUTINE $DNWRD 
2040 ;SUBROUTINE TO READ / MODIFY / WRITE ALL MEMORY LOCATIONS 
<5 ; STARTING AT TOP OF MEMORY 
2043 * ENTRY PARAMETERS: RO = EXPECTED DATA OF TER READ/ MOD/ WRITE 
2044 ; R4 = KIPARS 
2045 3 
2046 010314 $DNWRD : 
010314 004737 010450 JSR oF IND LAST DIAGNOSTIC ADDRESS AND 
KIPARS AND Ri ae. 
010320 013714 005650 MOV SInit KIPARS to top of memory 
010324 012701 010000 30031$: MOV sInitialize Ri 
0 0127 140000 MOV ;Set R2 = 140000 
010334 005142 30032$: COM ;Read / modify / write (DATIO) 
010336 0200 CMP ;Seac CDATI) 
0340 001031 Se ; Should be zeros 
010342 077104 SOB _sLoop control 
010344 162714 000200 Sub ;Move window down words 
010350 020314 CMP ;Is KIPARS = low RAM 
010352 O01 BNE ; 
0354 004737 010450 JSP ; 
010360 012702 i MGv ; 
010364 005142 15$: COM 
010366 0200 CMP 
010370 001015 BNE 
10372 077104 = 
010374 004737 010514 . 
are BEQ 3 
610402 013706 177676 MOV 
016406 012737 010712 044746 MOV s3\\ 
010414 012737 010704 044752 MOV 33; >> ERROR 64, CHECKSUM ERROR 
01 104064 ERROR +64 33/7 
01 013706 177676 30033%: MOV SP 
010430 012737 011006 044746 MOV AME , EMADR s3N\ 
010436 012737 010634 044752 MOV #@FATALW,ESADR ; >> ERROR 65 
010444 104065 ERROR+65 $8 
10446 30034$: 
2047 010446 000207 RTS PC 





(55 
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TEST 


ee ee Re ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ees 


;SUBROUTINE TO DETERMINE WHERE LAST DIAGNOSTIC ADDRESS IS SO THAT 
DIAGNOSTIC WILL NOT GET BLOWN AWAY BY RAM TEST 


SENTRY PARAMETERS: R4 = KIPARS 
;0N EXIT: KIPARS AND R3 WILL CONTAIN ADDRESS OF LOW RAM 





PROMLO: MOV ; 
MOV ; 
BIC ;GET PAGE BITS 
BIC ; OFFSET 
ASH ;SHIFT IT FOR PAR AL 
MOV ;PAGE WHERE OF PROGRAM 
MOV sNOW FIGURE HOW MANY BYTES WE ARE 
SUB ; FROM THE TOP THE PAGE 
AGD ; OF S REMAINING IN 8KB BLK 
RTS ;Return 





H5 
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6 HIGH BYTE PARITY RAM TEST 
2072 gn nnn nn nn nn nn ee ee - + + + ++ 
2073 ;SUBROUTINE TO OBTAIN THE CHECK SUM OF THE DIAGNOSTIC 
2074 ;RESIDENT IN RAM TO DETERMINE IF ANY LOCATIONS HAVE BEEN 
75 :CORRUPTED BY ACTIVINY IN OTHER AREAS OF RAM 
2077 010514 RS a ae te eee 
2078 010514 CLR 
2079 010516 012703 051506 MOV SLASTAD.R3 
2081 o10554 Oe2102 1$ SDD (R1)+,R2 K2 WILL HOLD SUM IGNORING CARRIES 
010526 020301 CMP R3,R1- “8 
2083 010530 002375 BGE 
2084 010532 020237 177666 CMP R2,a#177666 


2085 010536 000207 RTS 
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6 HIGH BYTE PARITY RAM TEST 
2087 SO 0 = RESELL DRED LE OED CLED DDE DONT 
2088 ;ERROR ROUTINES 
2090 O1 7 900002 177540 TRP.4: BIC $2, @@K2CSRJ :DISABLE WRITING WRONG PARITY JUST IN CASE 
2091 010546 011616 MOV (SP), (SP) ; AND ENSURE THAT STACK PARITY IS OK TOO 
2092 010550 01 000002 000002 MOV 2(SP},2(SP) : WE DON’ a, WANT POSSIBLE BAD PARITY 
2093 010556 177572 CLR ;TURN OFF 
2094 010562 01 MOV SP.RS : SAVE CONTENTS OF THE STACK 
2095 010564 013706 177676 MOV ART, SP ;SET NEW S’ACK 
2096 010570 011537 001 MOV (RS), a8$BDADR ;SAVE PC AT TIME OF TRAP TO 4 
2097 010574 16273 001122 SUB aes ;CALCULATE ADDRESS AT WHICH TIME OUT OCCURRED. 
010602 012737 011030 044746 MOV #BUSTO,EMADR = ;;\\ 
010610 012737 011110 044752 MOV #TOEH.ESADR 33; >> ERROR 66, RAM TIMED OUT 
010616 1 ERROR+ ali 
2100 010620 012716 011232 MOV #ENDRAM,(SP)  ;ALTER RETURN ADDRESS 
2101 010624 RTI 
2103 010626 162702 000001 FATALB: SUB #1, ;GET ADDRESS OF FAILING BYTE 
2104 010632 BR FATALI 
5106 010634 162702 FATALW: SUB «#2, R2 ;GET ADDRESS OF FAILING WORD 
2107 010640 005037 177572 FATALI: CLR ;MMU OFF 
2108 O1 010237 001122 MOV R2,@8$BDADR ;MOVE FAILING VIRTUAL LOCATION TO $BDADR 
2109 010650 011437 001120 “OV (R4),@8$GDADR ;MOVE CONTENTS OF KIPARS TO $GDADR 
2110 010654 737 011120 JSR PC,P 
2111 O41 1 011063 TYPE §_,RAMTXT 
112 01 013746 001120 MOV @é$GDADR, -(SP) 
2113 010670 3 TYPOS 
2114 010672 BYTE 2 ;TYPE 2 DIGITS 
2115 010673 . BYTE 0 ;SUPPRESS LEADING ZEROS 
2116 010674 013746 001122 MOV @e$BDADR, -(SP) 
2117 0107 3 TYPOS 
2118 0107 005 BYTE 5 ;TYPE 5 DIGITS 
2119 010703 001 BYTE INT LEADING ZEROS 
120 010704 012716 011232 FATALR: MOV ; AM, (SP) ;ALTER RETURN ADDRESS 
5153 O10712 O15 ~«=—«12.S=s«LOS.CKSUM: © “ASCIZ <CR><LF>/CHECKSUM ERROR/ 
4 ‘: < >< > 
2123 010733 015 012 120 PARE: -ASCIZ <CR><LF>/PARITY CIRCUIT ERROR/ 
2124 0107 015 012 120 PRAME: .A <CR><LF>/PARITY RAM ERROR / 
2125 O11 015 012 122 RAME: .ASCIZ <CR><LF>/RAM TEST ERROR 
126 0110 015 012 102 BUSTO: .ASCIZ <CR><LF>/BUS TIME OUT AT ADDRESS / 
2127 011063 101 124 040 RAMTXT: .ASCIZ /AT PHYSICAL 
2128 EVEN 
? 2 
2130 ;BUS TIME-OUT ERROR HANDLER 
2132 O11110 013746 001122 TOEH: MOV @esSBDADR.-(SP) ;LOAD FAILING VIRTUAL ADDRESS 
2133 011114 104402 ;TYPE IT 
2134 011116 000207 RTS PC 
3 
2136 ;RECONSTRUCT THE FAILING PHYSICAL ADDRESS 
2138 ;0N ENTRY: $BDADR CONTAINS THE ADDRESS OF THE FAILING VIRTUAL ADDRESS. 
2139 ; $GDADR CONTAINS THE VALUE IN KIPARS 
’ 
2141 ;0N EXIT: $BDADR CONTAINS THE LOW FIVE DIGITS OF THE fATLING PHYSICAL ADR 





J5 


KXJ11-CA FUNCTIONAL TEST MACRO Y05.02 Thursday 03-Apr-86 14:11 Page 60 
13.6 HIGH BYTE PARITY RAM TEST - 
2142 , $GDADR CONTAINS THE HIGH FIVE DIGITS OF THE FAILING PHYSICAL ADR 
1120 PACONV: CLR RO 
2145 011122 012701 MOV $6,R1 
1 1126 006337 001120 1s: ASL aes ;ROTATE PAGE NUMBER 
2147 011132 0061 ROL ;.. INTO RO 
1134 077104 SOB 
2149 011136 042737 1 001122 BIC $tC17777, @8$BDADR : 
063737 001120 001122 ADD $ ’ a8$BDADR 
2151 011152 042737 001122 BIC 8B ;MAKE BIT 15 ZERO 
2152 011160 006337 001120 ASL GDADR nN 
2153 011164 006100 ROL RO ; >FOR OCTAL PRINT OUT FORMAT 
2154 011166 010037 001120 MOV RO, @#$GDADR sf 
2139 011172 000207 RTS PC 


KS 


a a CA FUNCTIONAL TEST 
13.6 HIGH BYTE PARITY RAM TEST 


2158 
2159 
2160 
2161 
2162 011174 
2163 
2164 
2165 
2166 
2167 011200 
2168 011202 
2169 011210 
2170 011212 


2171 011216 
2172 Oli222 
2173 

2174 011230 
2175 

2176 

2177 011232 
2178 

2179 011242 
2180 0 


2186 304 
2187 011310 
011310 


005737 


177672 


177777 


002416 
177672 
000002 


177572 
002426 


000006 
000116 
000004 
000001 
000001 
177540 
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Parity error handler 


PARERR: TST @eUDPARS sUsing UDPARS as indicator of expected 
-or unexpected parity error. 
;0= expected 
;-1= unexpected 
BEQ 18 ;other non-zero = address to return to. 
177672 cP 1, @2UDPARS ;Is UDPARS = -1? 
JMP :Go to unexpected trap routine 
2$: MOV @SUDPARS , (SP) ;New return address 
000002 i$: BIS #2,2(SP) ;Set the V bit in new psw to indicate 
RTI ; @ parity error 
;Before going to the next test restore the stack. 
ENDRAM: CLR ;OFF THE MMU 
CLR TRAP4X ; 
000004 MOV #6 , 044 ;sRestore trap vector 
000114 MOV #116 ,90114 ;Furthur parity errors are not expected. 
000116 MOV #I0T ,a#116 ; 
001174 BIT g8IT00, $P ;IS PASS COUNTER EVEN 
177540 = ~ (ahlaealleateeemen ;ENABLE PARITY ERROR DETECTION ON EVEN 
1g: CLR @eK2CSRJ ;DISABLE PARITY ERROR DETECTION 
ci BR TST4 - 


a 


2189 
2190 


011312 
011314 
01 


2 
2197 011402 
2198 011410 
2199 011412 
2200 011420 
2201 011422 
Seog 011426 
2295 011430 
2206 011432 
011432 
2207 011440 
2208 011444 
2209 011450 
2210 011454 
2211 


011504 
2219 011506 
2220 011512 
2221 


011514 
011516 
011522 


222 
222 
2224 


032777 
032777 


012737 
3705 
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000400 
000177 
012436 


011516 
001144 


000060 
011526 


000001 
001174 
011750 


012222 


001103 
012504 
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HIGH BYTE PARITY RAM TEST - 


103 


167530 
167520 


001160 


001206 


sSLUIK2 . MAC 


-OCT-85 


23 
a cs OO gps 9g gee amas 
;aTEST 4 CONSOLE TAL DC3i9 


& 


gs FESEESRESSSSASS SESS SASE SES ERS SSSSS SSE SESE SSA SSERAKRES KARE ARERERERE 
SCOPE 


30037$: — 


Hea 


1$: 


2s: 


10$: 
4$;: 


3$: 


BIT #8118, aSWR 

BEQ 

BIT $177, aSWR 

BEQ i$ 

TYPE, 

GTSWR 

BR TST4 

MOV #3$, $ESCAPE 

MOV $TKS,R5 

MOV STKVEC,R4 

CALL DC.XMT 

BR 2$ 

sITB *. poewy 

BEQ 103 

TST $PASS 

BNE 3$ 

CALL DC.RCV 

BR 4$ 
ERROR+70 

CALL OC. DAT 

BR 3$ 
ERROR+71 

CLRB  $€RFLG 

JMP ENDSLU 


30037 
-ASCIZ \ CONSOLE SERIAL ‘LINE DC319\ 


;; DISMISS BuUS- 

;; CLEAR ERROR PREFIX 

3; SKIP NEXT. 

3% BYPASS. 

;; PRINT TEST NUMBER AND NAME... 
.AND SKIP OVER THE ASCII. 


; TEST THAT THE CONSOLE PORT INTERRUPTS AS ADVERTISED. 
*#% NOTE: LOOP OPTIONS (SWR<9> AND SWR<8>) ARE a 
ONSOLE TTY: 


LEST WE LOSE CONTACT WITH THE C 


SWR<8> SET ?? 

BR IF NOT. 

SWR<6:0> CLEAR ?? 

BR IF 

LOOP-ON-TEST NOT PERMITTED. 
GET ANOTHER SWITCH. 


;s;ESCAPE TO 3$ ON tiga 
; RCSR POINTER 


s\\ 
;; >> ERROR 67, TRANSMIT INTERRUPT ERROR 


; IF NOT 

; IS THIS THE FIRST PASS 

; IF NOT THEN DON’T DO THE NEXT TESTS. 
; EXECUTE RCVR INTERRUPTS... 

3;..AND RETURN HERE IF OK. 


AA 2 
i >> ERROR 70, RCVR INTERRUPT ERROR. 


EXECUTE DATA TESTS 
1. < AND RETURN HERE IF OK 
i> ERROR 71, CONSOLE DATA TEST ERROR 
; SOTSALLOW SUR<9> IN NEXT .SCOPE. 

3< AND TS ALL> 





MS 


KXJ11-CA FUNCTIONAL TEST 
14 CONSOLE SERIAL LINE 0C319 


2235 

2236 

2237 

2238 

2239 011526 

2240 011534 

2241 011540 

2242 011544 

2243 011550 

2245 

2246 011570 

2247 011572 

2246 011600 

2249 011602 

2251 011606 
011614 


011622 
e252 011624 


2271 011742 
2272 011746 





011662 
000000 
047265 
045206 
011702 


011676 


047314 
045206 
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044746 
044752 


044746 
044752 


1$: 


2s: 


3$: 


4$: 


5$: 


6$: 


TO CALL+2 IF OK, CALL+4 


*%¢ TRANSMITTER *«e« 
CHECK THAT THE XMTR INTERRUPTS THRU VECTOR (R4) AT LEVEL 4 
AND THA ACKNOWLEDGE DROPS THE REQUEST. 


THAT THE INTERRUPT 


gaagas agr* 5 


TSTB 


BIS 
240 


SERS 20H * gt #2" 


#SLIX, EMPRE 
TVEC(R4), -(SP) 
TPRICR4), -(SP) 
aPR4 


$2$, TVEC(R4) 
#PR4, TPRICR4) 
TCS(R5) 


1$ 
#100, TCSCRS) 


3$ 
(SP)+,(SP)+ 
$SLI2.EMADR 
@NOSIG, ESADR 
6$ 

$4$, TVEC(R4) 
8PRO 


#SLI3,EMADR 
@NOSIG,ESADR 
6$ 

#5$ , TVEC(R4) 
#. +6, (SP) 


ON ENTRY, (RS) = RCSR AND re = VECTOR. 
RETURN IF ERROR. 


;CHANGE THE VECTOR. 

3 CPU PRIORITY. 

; T SHOULD HAVE COME IN 
33 SET ae 
33...AND SIGNATURE POINT 

g2. BE CALLED LATER 


WILL 
; GET OUT “INT NOT RECEIVED". 
; INT REC'D, CHANGE THE VECTOR. 


hae? i CPU PRI O.. 
.. SHOULD NOT GET ANOTHER. 


T -- TROUBLE... 
AND SIGNATURE POINTERS. . 
Be . ERROR WILL 





; ERROR -- TAKE SKIP RETURN. 
; CLEAR THE INT ENABLE. 
; RESET VECTOR 


BE CALLED LATER. 


ie et 














NS 


2287 
2288 
2289 


2291 
2292 


2502 
2304 
2305 
2507 


2308 


2314 
2315 
2316 


2323 
2324 


2290 0 


KXJ11-CA FUNCTIONAL 
14 CONSOLE 


2283 

2284 011750 
2285 011756 
2286 011762 


011766 
011772 
012000 


12006 
012014 
012016 


070 
012072 
012074 
012102 
012110 
012116 


012124 
012126 


012146 
012150 
Oi8ize 


12160 
012166 


012214 
012220 





TEST 


012130 
000000 


047265 
045206 


012150 
012144 


047314 
045206 


a tN ee 
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SERIAL LINE 0C319 _ 


044742 


044746 
044752 


+#s RECEIVER «es 
; NOW USE THE “MAINT” SWITCH AND DO THE 
; EXPECT INTERRUPTS THRU VECTOR (R4) AT LEVEL 4. 


RCS= 0 
RBUF= 2 
RVEC= RCS 
RPRI= RBUF 
DC.RCV: MOV 
MOV 
MOV 
MTPS 
MOV 
MOV 
BIS 
CLR 
MOVB 
i$: TSTB 
BMI 
SOB 
BIC 
BIS 
240 
BR 
2s: CMP 
MOV 
MOV 
NOP 
BR 
3$: MOV 
MTPS 
240 
MOV 
MOV 
NOP 
BR 
4$: MOV 
MOV 
RTI 
240 
BR 
5$: CMP 
MOV 
MOV 
NOP 
63: ADD 
7$: BIC 
MOVB 
MOV 
MOV 
RETURN 






#SLIR , EMPRE 
RVECCR4),-CSP) 
RPRICR4), -CSP) 
#PR4 


#2$ ,RVEC(R4) 
éPR4, RPRI(R4 
#4, TESCRS) 
RO, TBUFCRS) 
RCS(R5) 


RO,1$ 

$4. TCSCRS) 
#100, RCS(RS) 
3$ 

(SP)+ ° (SP)+ 
@NOSIG, ESADR 
64 


04$ ,RVEC(R4) 
oPRO 


#SLI3,EMADR | 
@NOSIG, ESADR 


6$ | 
#5$ ,RVECCR4) 
SP) 


o* e 


7$ 


@NOS IG, ESADR 


#2,4(SP) 
#100, RCS(RS 
RBUF CRS) ,RO 
(SP )« 
(SP)+ 


) 
-RPRICRA 
"RVEC 


R4 


SAME FOR THE RCVR. 


ii A NULL CHARACTER... 
;...WAIT 'TIL RCVR GETS IT... 


;...(BUT DON'T WAIT FOREVER)... 
ide oto Benaets 

7 

; INTERRUPT SHOULD BE HELD OFF 
;...8R IF SO. 

; IT WASN'T... 

3: SET ERROR ME e 
;3...AND SIGNATURE ERS 
33...ERROR WILL BE CALLED LATER 


3 SET MESSAGE... 

;...AND SIGNATURE POINTERS... 
>, ,.ERROR WILL BE CALLED LATER. 
GET OUT “INT NOT RECEIVED’. 





;RETURN FROM RECEIVER INTERRUPT TESTS 


B6 


KXJ11-CA FUNCTIONAL TEST 
TS CONSOLE SERIAL LINE 0C319 


2325 
2326 
2327 
2328 
2330 
2331 012222 
2333 012232 


2349 012324 
5381 012330 


2364 1 379 
012374 
0 





120 

001765 
010137 
010237 
012737 
012737 
000240 
062716 
042765 
000207 
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037625 
000004 


044746 
044752 
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; SLIDE A BIT THRU THE INTERNAL (MAINT) LOOP. 


; CHARACTERS ON 


16$: 


15$: 
17$: 


10$: 
2s: 


4$: 


5$: 
6$: 


7$: 


; NOTE: IF THERE’S A TERMINAL ATTACHED LL SEE GARBAGE 
ON THE SCREEN -- DON'T T WORRY ABOUT fT 7 
DC.DAT: CLR EMPRE ; NO : 
INCB  VARC ; BUMP THE VARIABLE CHARACTER... 
CMPB VARC , #177 ;...'TIL IT REACHES <DEL>... 
BLO i$ ;... THEN... 
MOVB #§ #40, VARC ;..,RESET IT TO <SPACE>. 
BIS #4, TCS(R5) ; SET XMIT MAINT BIT. 
MOV 8FLT10,RO ; DATA TABLE POINTER => RO 
MOVB  (RO)+,R1 ;...1ST CHAR => Ri... 
TSTB 99177564 ; 
#177566 ;FLUSH OUT ANY ERRORS 

TSTB #177560 ; 
BPL 15$ 
TSTB © @#177562 ;CLEAR OUT RECEIVER BUFFER 
BNE 15$ : 
TST 90177562 
BMI 16$ :ANY ERRORS IN RX BUFFER? 
TSTB 98177560 
BMI 17$ -IS BUFFER EMPTY NOW? 
CLR R2 is 
MOVB 1, TBUF(RS) ; 
TSTB = RCSCR5) ; 
BMI 6$ 3 
SOB R2,2$ ; 
BR 7$ : 
MOVB (RO)+,Ri 
FOV «1, TBUF CRS) 
TSTB Resces) 
BPL 6$ 
MOV RBUF (RS) ,R2 
CMPBséR1,R2 
BEQ 4$ 
MOV R1, $GDDAT 
Oy R2, $BDDAT 

MOV oeFa > EEADR 

NOP 
ADD #2, (SP) 
BIC 04, TCS(RS) 
RETURN 
.ASCIZ 
.EVEN 
BR 


<CRLF>\LOOP ON CONSOLE TEST NOT PERMITTED\<CRLF> 


TSTS 





DONE, CLEAR MAINT SWITCH... 
ss AND 


C6 


KXJ11-CA FUNCTIONAL TEST 
TS LINE CLOCK (BEVNT) INTERRUPT 


2377 


2378 
2379 


2380 

2381 

2382 

2383 012602 

2384 012606 

2385 012614 

2386 

2387 012616 

2388 012620 

2389 

2390 012622 
012622 


2391 012630 
2392 012634 
93 0126 


0127 


2409 O12 

2410 012734 
2411 012736 
e4l2 012742 
2413 012744 
2414 012746 
2415 012750 


00 
012737 


001332 
012616 


012630 
000300 


000100 


177777 
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114 


000100 


001110 


044746 
044752 


044746 
044752 


044746 


5 § FSSEESEEESEEEEEEEEEEEEEEEEEEEEEEESEE8 00400005 040446000008000008 
5 LINE CLOCK (BEVNT 


Se een ~ - acca aaaaamamamaas as:'ou nen eoaaaaaenemeanete 
STS: SCOPE 


;#TEST 
MOV 
MOV 
CLR 
BR 
30038$: JMP 
30039$: T 
= 
30040$: 
; LINE CLOCK 
MOV 
MOV 
BR 
i$: inc 
RTI 
10$: 
MOV 
MTPS 
CLR 
CLR 
BIS 
2s: 
BR 
3$; MOV 
TST 
BMI 
4$: BIC 
S08 
TST 
BEQ 
MOV 


FROM CONSOLE ~ ° 
THAT INTERRUPTS OCCUR AT BR LEVEL 6, THRU VECTOR 100. 


$CLK,RS 
#1$,BEVNT 
10$ 


Ri 


#. +6, $LPERR 
#PRE 


Ri 
#B1T6, (RS) 





#-1,R1 
Ri 


NUMBER AND NAME. 
SKIP a THE ASCII. 


BUS 
$CLK<6>), 


; SET VECTOR. 


; ON BEVNT, TICK R1 AND RETURN. 


; IF NXM. 

DELAY ABOUT 250 MSEC, INTERRUPT... 
:... SHOULD BE MASKED AT THIS LEVEL. 
é 


‘8 
+i. ERROR 72, CLOCK INTERRUPT LEVEL INCORRECT 


33/7 

; NOW, LOWER CPU TO PRI S. 

: DELAY AGAIN. CLOEK SHOULD SHOULD COME IN.. 
AND GIVE US A FEW TICKS (MORE THAN 1). 

‘BR IF So. 

+} >> ERROR 73, CLOCK DIDN'T INTERRUPT 








D6 


_— -CA FUNCTIONAL TEST 
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LINE CLOCK (BEVNT) INTERRUPT 


012756 


012764 

2416 012766 
2417 

2418 012770 

2419 012774 

3002 


36 
2437 
2438 


01 
013110 
013140 


2439 013140 
013140 


2440 
2441 


013146 
013152 


2442 013156 
2443 013162 


2444 013166 
2445 013170 
2446 013172 
2447 etante 
2448 013176 
2449 013200 





045206 


001120 
046303 
045230 
002542 
000000 


166232 


015756 
013110 


040 


013146 
000200 


001324 
174454 


044752 


044746 
044752 


000100 


177524 


002426 
166054 


104 


001110 


Page 67 





MOV enosIG ESADR $3 >> ERROR 74, CAN'T SHUT IT OFF 
BR 6$ af 
S$: MOV RS, ; NXM 
MOV s3\\ 
Pay ERROR 75, BUS ERROR ON CLOCK ADDRESS 
6$: ; RESET CLOCK VECTOR. 
MTPS ; LOWER CPU TO O.. 
BR TST6 ;;...AND FALL THRU 


s ensooagesnsennsansenceseseneesnennennsesenoenanenteeseoseneees 

* ca F 

, 

4 é ce ee ee ee 
6: SCOPE 















BIT #340,@8K2CSRC ;; IS THE ID SWITCH IN POSITIONS 0 OR 1? 
BEQ is ;; SKIP THIS TEST IF IT IS 
MOV @STACK, SP 3; SET A CLEAN STACK. 
MOV #-1, TRAP4X 3; DL BUS-ERRORS . 
CLR 33 PREFIX. 
BIT #8178, ASUR $i : FORCED ENTRY SELECTED ?? 
TST a$DMA ;; CHECK FOR VALID $DMA. 
BVvC 30042$ 3 SKIP NEXT IF OK. 

30041$: JMP TST7 ; BYPASS. 

30042$: T$NAME, .+4 +: PRINT TEST NUMBER AND NAME. 
BR 30043$ .AND SKIP OVER THE ASCII. 
"ASCIZ \ DMA FACILITY AMzB016\ 
EVEN 

30043$: 

; AMZ8016 DMA CONTROLLER HAS 46. REGISTERS. 

| RESET THE CHIP AND VERIFY THAT ALL REGISTERS RESPOND. 

MMROEF= 135 

SeRCHo= 103 

SeceHie 240 

SCCCH2= 241 

TC= BITO | ; 

EOP= BITi 

IP= BIT13 INTERRUPT POSTED (DONE) STATUS BIT. 

+: OV 0.96, SLPERR Loop 

MIPS «© @PRA’ ; RAISE TO CHIP LEVEL. 
MOV #46. ,R4 ; Init R4 with number of registers 
MOV $DMA,R5 ; BASE 
CLR @ECMOR ; Issue " command... 
NOP 

1$: CLR (RS) ;..-AND CLEAR ALL REGISTERS. 
BYVS e$ ; V bit set oy trap thru 4 routine 
SOB R4,1$ $ contro 
CLR TRAP4X Sees eee 





— FUNCTIONAL TEST 


DMA 


2461 013246 
2462 013252 


24 

2479 013370 

2480 013374 

2481 013376 
3402 





012737 
77 


FACILITY AMZ8016 


001120 
020042 
045222 
015742 


020257 
013772 
001412 
044742 
177777 
174454 
174454 
020413 
045206 
000214 
174456 
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044746 
044752 


091110 


000214 
174470 
174442 


174440 
001412 


044746 
044752 


044746 
044752 


:3 >> ERROR 76, BUS ERROR AT DMA CHIP ADDRESS. 
; GET OUT. 


;3 LOOP HERE ON ERROR. 
sINIT MEMORY WITH KNOWN DATA 


BR 
2s: MOV RS, $GDADR 
MOV 7 
MOV #LAI6M2,ESADR 
ERROR+76 
$ ; EXECUTE 5 PASS DMA DATA TEST AS FOLLOUS: 
; 1. LOCAL => LOCAL+ 
; 2. LOCAL V0 PAGE => "LOCAL, ikKW. 
TDMA2: 
MOV #.+6, $LPERR 
MOV .,RO 
MOV 
100$: MOV 
SOB 
MOV 


CLR 
MOV 
CLR 
MOV 
MOV 
MOVB 
i$: 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOV 
2$: MOV 
MOV 
MOV 
SPL 
MOV 
MOV 
S08 
MOV 
MOV 
CMP 
JP 
2i$: MOV 
BR 
22$: MOV 
30$: CMP 
BIT 
BNE 
BIT 
BNE 
MOV 
MOV 





ERROR + 
-(SP), -(SP) 
asOMAV 


@ESTAT1,RO 

Besrate RO 

(SP)+, (SP )+ 
RO 





; SERVICE CHAN 1 FIRST 
; SET MASTER MODE <VI!WAIT!CPINTLV!ENAB>. 


TO CHANNEL 1 COMMANDS 
; STUFF ASCII 1 INTO MESSAGES 


SET CHECK TABLE POINTER IN R4. 


T 
START CHAIN CMND CHAN 1(2). 
) INTERRUPT SHOULD. . 
. CHIPPER BEFORE THIS TIMES OUT. 
i >> ERROR 77, CHAN INTERRUPT NOT RECEIVED 
1 FAKE THE INTERRUPT... 
- AND PROCEED. 


GET CHAN 1 STATUS. 


: 

: OR 

; GET STATUS. 
SB UUST STACK. 

: DID DMA COMPLETE? 

: OR IF Tc Is SET. 

OR DID WE HAVE AN NXM? 

: OR IF EOP CNH) IS SET. 

o> ERROR 100, DMA INCOMPLETE, TC!EOP BOTH CLEAR. 


ms 


F6 
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013500 104100 ERROR+100 33// 
2498 013502 000407 BR 24$ 
2499 013504 23s: 
013504 012737 020513 044746 MOV §_ #0MA4, EMADR sgN\ 
013512 012737 045206 044752 MOV #NOSIG.ESADR  ;; >> ERROR 101, DMA INCOMPLETE, EOP = 1 = NXM 
013520 104101 ERROR+101 3347 
2500 013522 012337 174454 24$: MOV (R3)+,@8CMDR §; INT SERVICE COMPLETE, CLEAR “IUS!IP’. 
; ;Now check and see that the transfer occurred correctly 
013526 012400 3s: MOV (R4)+,RO ; SET SRC POINTER... 
2505 013530 001466 BEQ 6$ ;...AND BR IF DATA CHECK INHIBITED. 
013532 012401 MOV (R4)+,R1 ; GET DST POINTER... 
2507 013534 0 MOV (R4)+,R2 ;...AND WORD 
013536 014032 CMP R4, SCKBYTE ; 
2509 013542 003434 BLE : 
2511 ;check results of byte transfer from I/0 page 
13 01 012737 021600 172352 MOV #21600, @@KIPARS ; 
2514 013552 052737 000020 172516 BIS #20,89172516  ;ENABLE 22 BIT ADDRESSES 
2515 013560 052737 000001 177572 BIS ; 
2516 013566 012737 000020 172516 MOV $20,98172516 § ;ENABLE 22 BIT ADDRESSES, DISABLE D SPACE 
2517 013574 010037 001120 35$: MOV RO, ; ADDRESS 
2518 013600 112037 001124 MOVB (RO)+,$GDDAT  ;AND DATA 
2519 013604 010137 001122 MOV ; ;GET DESTINATION ADDRESS 
013610 112137 001126 MOVB (Ri)+,$BDDAT  ; ADD DATA 
1 013614 123737 001124 001126 CMPB T, $8DDA 
013622 001020 BNE 
2523 013624 077215 34$: SOB 
4 01 005037 177572 CLR 
0136 BR 
013634 4$: ; Check 
2527 013634 010037 001120 MOV 
013640 012037 MOV 
013644 010137 001122 MOV 
013650 012137 001126 MOV 
1 013654 023737 001124 001126 CMP 
2532 013662 001410 BEQ ; BR IF SRC = DST. 
2533 spree 33$: 
01 012737 020562 044746 MOV #DMAS,, EMAOR s3\N 
013672 012737 045360 044752 MOV #€F6,ESADR 33 >> ERROR 102, DATA ERROR 
013700 104102 ERROR+ 102 $3 
34 013702 000401 $ ; ESCAPE ON 1ST DATA ERROR. 
5 013704 077225 S$: 


; CHECK FOR END OF TABLE... 
sion bon betas 
5 


7 015008 020427 014042 6$: 
2539 pith 022703 013762 


001420 
1 0137 012737 013442 000214 
0137 012737 013754 001412 


000062 
2544 oistie 000137 013330 
oraz 013746 8$; 
013746 000062 





gg ag28E808 &* 
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2548 013752 000054 -WORD 54 ; CLEAR IUS AND IP COMMAND. 

2549 013754 9$: 

2550 013754 -WORD 63 ; 23 T ENABLE 

2551 013756 000241 -WORD 241 ; CHANNEL 2 START CHAIN COMMAND 
3760 -WORD 55 ; SERVICE & 

cana ; ...INTERRUPT PENDING CHANNEL 2 

2555 013762 005037 174454 7$: CLR aeCMDR ; ALL DONE RESET CHIP... 

2556 013766 000137 014204 JMP DTCEXP ; 


H6 


KXJ11-CA FUNCTIONAL TEST 
T6 DMA FACILITY AMZ8016 


2558 
2559 
2560 
2561 013772 
2562 014002 


4066 

1 014072 
e382 014076 
3 014100 
2585 014104 
2586 014106 
2587 014112 
2588 014116 
9 014120 


061022 
177750 


000000 
061022 
120000 
061022 
071022 
001340 
177759 
071022 
001340 
061022 
071022 
001340 
071022 
061022 
00.549 

1022 
071022 
001340 
160000 


071022 
001301 





SOOO DOS het be, TE ET Nam Mm -— < 
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071022 
071022 


071022 
071022 


; 
; ADDRESS/WC TABLE FOR POST-DMA DATA CHECKS. 


eKxTBL: 





DMAC1, BUFR1, BUFR2, 2048. ; TEXT, SRC, DST, WC. 
DMAC2, 177750, BUFR2, 1 
DMAC3, 0 ; CHAINS 3 
DMAC4, © ;..- INVOLVE @:BUS: SPACE. . 
DMACS, BUFRI, BUFR2, 2048. ;...POSTPONE DATA CHECK UNTIL... 
;...CHAIN 5 IS DONE. 
CKBYTE: DMAC1, 120000, BUFR2, 4096. ;CHECK BYTE TRANSFER 
; AND THIS IS THE S LINK DMA CHAIN. 
CHAIN1: 1606 : LOAD ARA. ARB. OPK, VECT, AND CHAN MODE. 
0, BUFR ; FROM LOCAL BUFR 
0. BUFR2 ;...10 LOCAL BUFR2 ~ 
2048. ;...2K WORDS. 
DMAV ; VECTOR. 
30, 1340 ; SFTREG., HDMSK, INT TC!EOP, INTLV, WORD-WORD.. 
; ...FLOWTHROUGH 
CHAIN2: 1602 ; RE-LOAD ARA, ARB, CHAN MODE ONLY. 
40000,177750 ; FROM LOCAL 1/0 (K2 OMAINTENANCE REGISTER) 
0, BUFR2 ;...70 BUFR2.. 
i ;...1 WORD.. 
30, 1340 ;...SAME MODE AND TERMINATION. 
CHAINS: 1602 ; DITTO. 
0, BUFRI ; FROM LOCAL BUFR1 
100000, BUFR2 ;...10 Q-BUS BUF 
2048. ;...2K WORDS. 
30, 1340 ; DITTO 
CHAINS: 1602 ; DITTO. 
100000, BUFRL 1. TO GcBLS GUFRI 
8 Sece / 
2048. 3 eK WORDS. 
CHAINS: DITTO. | 
1 BUFR1  ; FROM Q-BUS BUFR 
0 g Seed L BUFR2 
30, 1340 ere. 
CHAIN6: <CARA!CARB!COP!MODE> 
<K2MEM!4000!UP>, 160000 ;FROM K2 ROM 
rs .BUFR2 Dy 2 
<SWRQ!HM>, <ITC! EOP !BUSREL ! OR EOP 





INTERRUPT ON TC 
‘BUS RELEASE, BYTE-BYTE TRANSFER 


16 


. 1-CA FUNCTIONAL 


TEST 


DMA FACILITY AMZ8016 


2610 014204 
ots 014204 


263 
2634 014354 
014362 


014370 
2635 014372 
2636 014374 

7 014400 


coat 4504 
2653 014510 
2654 014514 
2655 014516 
2656 014522 


012737 
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000214 
174470 
174442 
174440 
001412 
001414 


044746 


044752 


044746 
044752 


044746 
044752 


JTCEXP: ;NOW TEST THAT THE DTC EXCEPTIONS WORK CORRECTLY 


1$: 


2$: 


21$: 


223: 
30$: 


23$: 


24s: 






CLR 
HOV @D0TCXO1 , @SCHALL 
MOV CX01, @¢CHA2L 
MOV #8$, @8TSTLOC 
MOV #10$ ,a8TSTLOC<2 ; 
MOV + 1,RO ; 
MOVB  RO,DTCXM1-5 
MOVB ‘ DTCXM2+5 
MOVB RO, DTCXM3+5 
MOVB RO ,DTCXM4-5 
MOVB RO, DTCXM8+5 
MOVB RO ,DTCXM9+5 
MOV OPTSL ,R4 
MOV TSTLOC,R3 
MOV @STSTLOC+2,R2 
MOV (R4)« 
MOV ~1,R0 
SPL 
MOV (R3)+, @CMDR 
MOV (R3)+, 36CMDR 
SOB % 

MOV 

MOV #NOSIG,ESADR 

ERROR+103 

CMP -(SP), -(SP) 
JMP 40M 
MOV @ESTAT1,RO 
BR 30$ 
MOV BESTAT? 
CMP (SP)+ Cee. 
BIT OP ,RO 
BNE 

MOV 

MOV 

ERROR 

BR 
BIT 
BEQ 

MOV 

MOV 

ERROR 


RemeeoneS 


; SERVICE CHAN 1 FIRST 


; SET MASTER MODE <VI!WAIT!CPINTLV!ENAB>. 
; SET CHAIN ADDRESS(ES)... 
; LOCAL ACCESS 


;... = 1ST LINK. 
; POINTER TO CHANNEL 1 COMMANDS 
; POINTER TO CHANNEL 1 REGISTERS 


SET CHECK TABLE POINTER IN R4. 
OAD COMMAND POINTER 

LOAD REGISTER POINTER 

SET ERROR PREFIX. 

tae tha TIMER . 

‘TSSUE SET INTERRUPT ENABLE 

. THEN ISSUE START CHAIN CMND CHAN 1(2). 
"EOP INTERRUPT SHOULD. . 


.HAPPEN BEFORE THIS TIMES OUT. 


\\ 
i >> ERROR 103, CHAN INTERRUPT NOT RECEIVED 


: FAKE THE INTERRUPT. . 
; GET CHAN 1 STATUS. 


; GET CHAN 2 STATUS. 
: ADAUST STACK. 
> 


DID WE HAVE AN NXM? 
Be ecal CNX) IS SET. 
is 


Aaa ERROR 104, EXPECTED NXM, EOP CLEAR. 
33 


AN 
; >> ERROR 105, TC SHOULD NOT BE SET 


AY 
INT COMPLETE, CLEAR “TUS!IP". 


SERVICE 
; IS THERE DATA TO CHE 


;IS OFFSET REGISTER AS EXPECTED? 
;IS B ADDRESS OFFSET REGISTER AS EXPECTED? 





COMMAND CHANI(C2)... 


JO 
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2657 014524 023237 001124 CMP @(R2)+,$GDDAT  ;IS OP COUNT AS EXPECTED? 
2658 014530 001407 BEQ 25$ 
2659 014532 26$: 
014532 012737 015700 044746 MOV @DTCXM7,EMADR)sos ;\\\ 
014540 012737 045206 044752 MOV @NOSIG,ESADR ;; >> ERROR 106, CONTENTS OF DTC NOT CORRECT AFTER EOP 
014546 104106 ERROR+106 ey 7, 
014550 020427 014754 25$: CMP R4, #DTCXO1 ; 
2661 014554 062661 BLT 2 
014556 022703 014640 CMP $10$ ,R3 ;HAVE BOTH CHANNELS BEEN TESTED? 
2663 014562 001 BNE 27$ 
014 005037 174454 CLR ;RESET CHIP 
2665 014570 000137 015742 JMP 
014 012737 014632 001412 27$: MOV #9$.@8TSTLOC  _;LOAD CHANNEL 2 COMMAND POINTER 
01 012737 014646 001414 MOV #11$,@8TSTLOC+2 ;LOAD CHANNEL 2 REGISTER POINTER 
2668 014610 012737 014406 MOV #22$. @SDMAV sLOAD CHANNEL 2 INTERRUPT HANDLER 
2669 014616 012700 MOV #'2,RO 
2670 014622 BR is 
2672 014624 8s: ;CHANNEL 1 COMMANDS 
2673 014624 “WORD 62 ; SET CIE 
014626 000240 “WORD 240 ; START CHAIN 
2675 014630 000054 “WORD 54 ; CLEAR TUS IP COMMAND. 
2676 014632 94: ;CHANNEL 2 COMMANDS 
2677 014632 “WORD «63 ; CHANNEL RRUPT_ ENABLE 
2678 014634 000241 “WORD 241 ; CHANNEL 2 START CHAIN COMMAND 
2679 014636 000055 “WORD 55 ; CLEAR INTERRUPT UNDER SERVICE & ... 
2680 ; ...INTERRUPT PENDING CHANNEL 2 
2681 014640 10$: ;CHANNEL 1 DTC REGISTERS 
2682 014640 174412 -WORD 174412 ;DTC CHANNEL 1 CURRENT ADDRESS REG A 
2683 014642 174402 “WORD 174402 ;DTC CHANNEL 1 CURRENT ADDRESS REG B 
2684 014644 174462 "WORD 174462 DTC CHANNEL 1 CURRENT OP COUNT 
2685 014646 11$: | ;CHANNEL 2 OTC REGIS 
2686 014646 174410 -WORD 174410 ;DTC CHANNEL 2 CURRENT ADDRESS REG A 
2687 014650 174400 -WORD 174400 ;DTC CHANNEL 2 CURRENT ADDRESS REG B 
£62 014652 174460 “WORD 174460 {DTC CHANNEL 2 CURRENT OP COUNT 
014654 015214 000000 EOPTBL: DTCXM1, 0 
2691 014660 01 000000 TCXM2, 0. 
01 015334 000000 TCXMS, O 
Soa Oiaers 015214 061024 170002 prcxt BUFRI+2, 170002, 3 
2695 014704 015264 061024 170002 DICXM2, BUFRI+2, 170002, 3 
2696 014714 015334 061024 177572 OTCans , BUFR1+2, 177572, 3 
2697 0147 5403 061024 177572 CxM4, BUERI +2, 177572. 2 
2698 0147 3452 061024 2 TOM, BUERE 177572, 3 
2699 014744 015532 061024 177572 DTCXM9, BUFR. 177572, 3 
2701 014754 DTCXO1: try to a non-existant local 
2702 — that the Chain Abort and 
2704 014754 001762 ;Chain reload “he 
2705 014756 061022 ister A (dma source 
706 014762 037420 17 ster B (dma destination-- hold) 
2707 014766 
2708 014770 061022 


015000 





Ko 
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2711 015002 
2712 
2713 
2714 
2715 015006 
2716 015010 
2717 
2718 
2719 
2720 015014 
2721 


2722 015014 
2723 015016 


2739 015054 
2740 015056 
2741 015062 
site 015066 
2743 015070 
2744 

2745 015074 
2746 015076 
2747 015102 


2748 015106 
2743 015110 
2750 


2751 015114 
Se li 


2754 0151 
ey 018180 


7 
oie 015150 


763 015154 
2764 015156 
2765 States 
2766 015166 
2767 015170 


000030 


000002 
000030 


003340 


001360 


177570 
061022 
177570 
061022 
003340 


001360 


061022 
170000 


001340 
061022 
170000 
001360 


061022 
177570 
001340 


061022 
177570 
001360 


061022 
177570 
001350 


;CHECK THE CONTENTS OF THE CURRENT 
3A TRANSFER THAT RESULTS IN A TIME-OUT 
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- ee 


30,3340 ;Channel mode register 


; This transaction will try to transfer from a non-existent local 


30,1360 ;<SWR!HM>, CRELEOP !ITC!IEOP!+LIP> ; ;Channel mode register 


Try some transfers to the Qbus 


3 oie trempaction will try to transfer from a non-existent Q bus 

"3 ]/0 Location. oe scopsBop MODE» ;Chain reload 

177420,177570 ;Current Address Register A (dma source 
BUFRi ;Current Address aener B (dma Seusbakion’ 

Current op-coun 


oad word 

2 source-- hol ld) 
4 

hy alll ;Base Address Register A (dma source-- hold) 


—— Address —— er B 
30,3340 n,n, peo = ony register 
; This transaction will try to transfer to a non-existant Q bus 


; I/0 location. 
2 ;Chain reload word 
30,1360 ;Channel mode register 


ADDRESS REGISTERS AND OP COUNT AFTER 
<CARA ! CARB ! COP ! MODE > ;Chain reload word 


0,BUFR1 ;Current Address Register A (dma source) 

37400, 170000 ;Current Address ie Sage B = dest inet ien-- hold) 
4 Current 

<SWRQ!HM>, <ITC!TEOP! TRUM!INTLY> 


;chennel mode register 
aT an ® reload ag 
1 t Address Register A source ) 
31400, 170000 :Current Address eer B = daat nat ien-- hold) 
<SWRQ!HM>, <TTC!TEOP! TRUM! INTLV!FLIP> ;channel mode register 
<CORAICARE SCOP EDS? ;Chain reload word 
0 t address 


BUFR1 ister a 
<QBUSIO!37400>,177570" —— t ederess re register b 


<SWRQ! HM> <ITC!TEOP! TRWM!INTLV> : 1 mode register 
pie | aeataalati :Chain reloed word 

Current address ister a 
<GBUSIO!37400>, sro iCurrent p register b 


<CARA! CARB! COP ! MODE > ;Chain reload word 


0, BUFR 
<QBUSIO!37400>,177570 ; 
<SWRQ!HM>, <ITC! EOP! TRFUNL !INTLV> 





L6 
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2768 

2769 015174 
2770 015176 
2771 015202 


2782 015651 
2783 015700 
2784 

2785 015742 
2786 015750 
2787 015754 


001602 


040 
103 


012737 
005037 
000400 
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—— :Chain reload word 
<GBUSIO!37400> 177570 
<SWRQ!HM>, <ITC!IEOP! TRFUNL!INTLV!FLIF> 
DTCXMi: .ASCIZ /CHAN X DMA XFER LOCAL MEM => LOCAL NXM/<CRLF> 
DTICXM2: .ASCIZ /CHAN x DMA XFER LOCAL NXM => LOCAL MEM/<CRLF> 
DTCXM3: .ASCIZ /CHAN X DMA XFER LOCAL MEM => QBUS NXM/<CRLF> 
DTCXM4: .ASCIZ /CHAN X DMA XFER QBUS oH => LOCAL MEM/<CRLF> 
DTCXM8: .ASCIZ /CHAN X DMA FUNNEL XFER - LOCAL HEM => QBUS NXM/<CRLF> 
DTCXM9: .ASCIZ /CHAN X DMA FUNNEL XFER - QBUS NXM => LOCAL MEM/<CRLF> 
DTCXMS: .ASCIZ / EXPECTED EOP ON DMA TRANSFER/<CRLF> 
DTCXM6: IZ / EXPECTED CHAIN ABORT/<CRLF> 
DTCXM7: .ASCIZ /CONTENTS OF DTC NOT AS EXPECTED/<CRLF> 
OMAEND: MOV #DISMISS,DMAV ; RESTORE VECTOR. 
CLR @SCMDR ‘RESET DTC CHIP 
BR TST7 ;;NEXT TEST. 


M6 
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2789 


2809 0 
2810 016074 
2811 016076 
sore 

2813 016076 


2818 016114 
819 


e821 016116 
2 ore 22 


013701 


177522 
000004 


000022 
000002 
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121 


jf ESEEESEEEEES ESSE EEEEEEEESE EES E2OEEOS5 4949054 EEEEEEEEEEEEREEE ERD 
s#TEST 7 Q- INTERF 
jp SEER ESESESESSSESEEESESSESESSS OEEEEEEEEEESESEEEEEESEEEERESEEEEE 


1ST7: SCOPE 
BIT $340,@8K2CSRC :: IS THE ID SWITCH IN POSITIONS 0 OR i? 
BEQ 30044$ 33 THIS TEST IF IT IS 
MOV SSTACK, SP 3; SET A CLEAN STACK 
MOV #-1. TRAP4X 3s DI SS BUS-ERROR 
CLR EMPRE 33 PREFIX 
BR 30045$ 33 
30044$: JMP TST10 ;; BYP 
30045$: T$NAME, .+4 ;; PRINT TEST NUMBER AND NAME 
BR 30046$ 33 OVER THE ASCII 
-ASCIZ \ Q-BUS INTERFACE\ 
“EVEN 
300468 
;TEST THE UPPER ADDRESS BITS 16 THRU 21 ON THE QBUS INTERFACE. 
‘FIRST WRITE TSTLOC IN QBUS MEMORY WITH ALL ONES. THEN ATTEMPT TO 
;WRITE ZEROS TO TSTLOC IN QBUS MEMORY S TIME TH ONE OF 
ADDRESS BITS 16 THRU 21 SET. IF TSTLOC IS CLEAR AS A 


RESULT 
: OF THIS WRITE THEN THE ADDRESS BIT DID NOT GET WRITTEN ONTO THE BUS. 
;FIRST LET’‘S MAKE SURE THAT WE HAVE MORE THAN 16 QBUS ADDRESS BITS. 


MOV @eK2CSRB,R1 ;GET BUS SIZE BITS IN K2CSRB 
BIT #81T02,Ri ; IS BIT 02 = 1 
BEQ 104$ ; NO, BRANCH 
ns HERE IF BIT 02 IS =1 
IT #B81T01,R1 ; IS BIT O01 = 1 
102$ ; , BRANCH 
105$: {COMES HERE IF BIT 02 =1 AND BIT 01 =1, OR IF BIT 01 =0 AND BIT 02 = 0 
INDICATES A 22 BIT JUMPER CONFIGURAT 
MOV $22. .R4 ;THEN IT'S A 22 BITTER 
on #6 RS ;INIT LOOP COUNTER 
102$: HERE IF BIT O01 = 0 AND BIT 02 = 1. 
TCATES AN 18 BIT JUMPER CONFIGURATION. 
Mov (a8. .R4 
HOV €2,R3 ;INIT LOOP COUNTER 
1043: “IF BIT 02 = 0 
61 seIT01,R1 : 15 BIT OL = 1 
oCOM IF BIT 01 = 1, BIT 02 = = 0, 
aN GATES. A 16 BIT SUPER CONF 
CMP R4, . ABUSW ;DOES IT MATCH WHAT ARBITER SAYS? 
BEQ 100$ ; 16 BIT : 
BR 103$ sNO, FLAG 
1063: CMP R4, .ABUSW ;DOES THIS MATCH WHAT ARBITER SAYS? 
BEQ 101$ 
105¢: Ov SCEGER.EWOR i 
° re} 
MOV @CNFGO1.ESADR ;; >> ERROR 107, NUMBER OF ADDRESS BITS CONFIGURED WRONG 
ERROR+107 33// 





N6 
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2828 016156 000137 017106 100$: UMP 
5829 016162 012704 000020 101$: MOV RG :INIT R4 WITH FIRST BIT TO BE TESTED 
5830 016166 012737 177777 001412 MOV «8-1. @8TSTLOC ‘MAKE TSTLOC = 
5831 016174 005037 001414 CLR TSTLOC+2 [MAKE TSTLOC+2 = 0 
016200 37 001416 CLR asTSTLOCe4 ‘MAKE TSTLOG:4 = 0 
5833 016204 012702 HOV —«- 8400.R2 SINIT R2 WITH ADDRESS BIT 16 =1 
016210 017044 BIS _- R2. AD1621+6 LOAD FIELD 
2835 016214 005037 174454 CLR @aeCMDR ; 
016220 012737 000111 174470 MOV «#111. BSMAR TENABLE DTC. NO CPU INTERLEAVE 
5837 016226 005037 17 CLR  aSCHADH 
5838 016232 012737 017016 17 MOV —«s« INTO, @@CHAQL ;LOAD CHAIN ADDRESS 
5839 016240 012737 1 174454 MOV —«- #CLIE2 “@SCMDR ‘T ALLOW INTERRUPT FROM DTC 
16246 012737 000241 174454 MOV S BSCMDR ‘ISSUE START CHAIN 
5841 016254 013746 MOV @SDMAV2.-(SP) CTORS 
B42 016260 013746 000222 MOV «AD MAV2=2. -(SP) . 
5843 016254 013746 000214 MOV « @SDMAV1, CSP) 
5844 016270 013746 000216 MOV = @SDMAVI+2, -(SP) 
5845 016274 012737 016420 MOV «#108, @#DMAV2 ;SETUP INTERRUPT HANDLER FOR DMA 
5846 016302 012737 000340 000222 MOV 7’ aSDMAVD+2 
5847 016310 012737 016370 000214 MOV «#218 "@@DMAVI 
5848 016316 012737 000340 000216 MOV 7 asDMAV1+2 ; 
5849 016324 012737 017036 174440 MOV 1621, @ECHADL ‘LOAD CHAIN ADDRESS 
0332 012737 000063 174454 MOV TE2, @9CMDR SENABLE CH2 INTERRUPT 
5851 016340 042737 000040 177540 5$: BIC  #@B1T05.a8K2CSRu ‘CLEAR SACK TIME-OUT BIT 
5852 016346 106427 000000 MTPS 6s ‘SET PRIORITY LEVEL TO ZERO 
5853 016352 012737 000241 174454 MOV —«- SSCCCH2, @CMOR ‘ISSUE START CHAIN COMMAND CH2 
5854 016360 012737 000103 174454 MOV —«#SSRCH2 @SCMDR TISSUE SET SOFTWARE REQUEST COMMAND 
5855 016366 000001 WAIT ‘WAIT FOR INTERRUPT 
H 
2857 ‘COMES HERE AFTER TRANFER FROM QBUS MEMORY TO TSTLOC+4 
2859 016370 022737 177777 01414 bis: CMP OCt«é-1. BBTSTLLOC+2 11S K2 TSTLOC.2 = -17 TT SHOWD BE. 
5861 i” BIT 1S BAD. OR THE BACKPLANE DOES 
2862 T SUPPORT 22 BIT ADDRESSES. 
5863 016376 001423 BEQ sé ‘BRANCH IF OK 
5864 016400 012737 016654 044746 MOV @BADBIT.EMADR_; ; \\ 
016406 012737 016572 044752 MOV  @BADBAL{ESADR 4, >> ERROR 110, ONE OF THE UPPER ADDRESS BITS 16-21 IS BAD 
016414 104110 ERROR+110 ay 
2065 016416 00413 BR 25$ : ;BAIL OUT 
3 
5867 ;COMES HERE IF EOP (NXM) OCCURS ON TRANFER TO @ BUS MEMORY 
9 032737 000002 174454 jos: BIT 9B1T01 , @eSTAT2 ;DID EOP OCCUR? 
870 O1 001007 BNE  -25$ : TERROR IF NO EOP 
B71 016430 012737 017004 044746 MOV SO0PS.EMADR so; : \\ 
016436 012737 045206 044752 MOV @NOSIG.ESADR ,, >> ERROR 111, SHOULD ONLY COME HERE ON EOP 
nar Lee 1081 ERROR+111 off 
th ;SET UP FOR NEXT ADDRESS BIT IF ANY 
; 
5875 016446 02 353: CMP  —s (SP)*, (SP)+ ;FAKE AN RTI AND FIX THE STACK 
5876 O164S0 ooses? 001414 CLR —s- @BTSTLOC +2 iCLEAR TSTLOCe2 
5877 016454 040237 017044 BIC _—- R2, AD1621%6 
5878 016460 INC RA ‘ADD 1 TO R4 
5879 016462 


ASC OR 
050237 017044 BIS §- R2, AD1621+6 ‘LOAD SEGMENT FIELD 








B/ 
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17 


ad 


Q-BUS 
2881 016470 
2883 016476 
2884 


2890 526 
2691 016532 
2692 


2894 

2895 016536 
2896 016540 
2897 016544 
2898 016546 
2899 016552 
2900 016556 
2901 016562 
2902 016564 
2903 016570 


2917 


017016 
Ot oese 


INTERFACE 


012737 


000055 


000216 
000214 
000222 
000220 
077757 
174454 
017106 
016726 
016760 
050736 
016703 
016760 


016776 


100240 
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174454 MOV —«s- @CLIP2, @eCMDR SISSUE CLEAR INTERRUPT COMMAND 
SOB séRR3«S$ ;00 IT SIX TIMES FOR 22 BITS, TWICE FOR 
: . EIGHTEEN. 
26$: MOV = (SP)+, DMAV1+2 SRESTORE THE VECTORS 
MOV «(SP {DMAVI 
MOV «(SPs {DMAV2«2 
MOV —« (SP)« ,DMAV> 
017044 BIC $+C<QBMEM!HOLD> , AD1621-+6 CLEAN UP 
CLR - @SCMDR SRESET DIC CHIP 
P22 SOFIND2 ‘SKIP OVER CHAIN TABLES 
‘ERROR ROUTINES 
ENFGO1: MOV _—s- R84, -( SP) ;PUSH NUMBER OF ADDRESS BITS KXu IS JUMPERED FOR 
TYPE  , JMPSAY STYPE MESSAGE 
TYPDS STYPE DECIMAL NUMBER 
TYPE. ,ADRBIT 
MOV. ‘ABUSW,-(SP) | ;PUSH NUMBER OF ADDRESS BITS ARBITER SUPPORTS 
TYPE § , ARBSUP ; TYPE MESSAGE 
TYPDS STYPE DECIMAL NUMBER 
TYPE  , ADRBIT 
RTS PC 
BADBAL: MOV _—s R84, -( SP) ;PUSH NUMBER OF BAD ADDRESS BIT 
TYPE BIT STYPE MESSAGE 
TYPDS ;TYPE DECIMAL NUMBER 
RTS PC 
MESSAGES 
115 ENFGER: .ASCIZ /NUMBER OF ADDRESS BITS CONFIGURED WRONG/ 
104 BADBIT: |ASCIZ /BAD @-BUS ADDRESS LINE/ 
122 ; 'ASCIZ <CRLF>/ARBITER SUPPORTS / 
130 JMPSAY: . <CRLF >/KXJ et CONFIGURED FOR / 
toa ORBIT. “ASELZ ADDRESS AETS? 
111 BIT:  “ASCIZ / BIT / 
103 OOPS: ASCIZ /DTC ERROR/ 
"EVEN | 
; 
;DMA CHAIN TABLES FOR TESTING ADDRESS BITS 16-21 
iNITO: ;WRITE @ BUS MEMORY LOCATION WITH -1 
<CARA! CARS COP RODE > | CARA’ SOURCE 
«COHEN HO D> /TSTLOC CAR (DEST) 
<SWRQ!HM>,<TRWW!BUSHOG> sMODE 
Api621: To START TEST OF BITS 16 21 
LEARATCARBICOPIIVINODE> “CHAIR RELOAD WORD 
<KEPENIHOLD>, TSTLOCe4 ‘CARA ME URCED WRITE 0 
‘WORD  TSTLOC CARB (DEST) 
Soave ; 
<HM>, <IEOP!CTC!TRWW!BUSHOG> |; MODE-- NEEDS SOFTWARE REQ TO GO 








C7 
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2944 0170 
2945 017102 
2946 

2947 017106 
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sREAD ADDRESS TSTLOC IN QBUS MEMORY 


<K2MEM!HOLD> , TSTLOC+2 — (DEST) 


1 
OMAV1 TV 

<SWRQ!HM>, <TC! TRUM YBUSHOG> : 
0,AD1621 CHAIN ADDRESS 


“7 


/ 
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2949 
2950 
2951 


170000 
170020 


040000 
100000 


012737 
005737 


000001 
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174470 


174442 
174454 
174456 


174456 
050760 


A SOURCE 
DATA SOURCE 


;BE CONF ADDRESS OF 770000 
; INTERRUPT TY THAN THE K2 UNDER TEST 
; INSTALLED IN THE BACKPLANE SO THAT THEY 
;K2 UNDER 
;Definitions for QBE CSRi1 bits 
WRD= 1 ; TRANSFER 
BYT= 0 ;BYTE TRANSFER 
HD= 0 ;HOLD DATA 
RR= 2 sROTATE DATA RIGHT 
RL= 4 sROTATE DATA LEFT 
LN= 6 ;LOAD NEW DATA 
DR= 0 ;QBE DATA REGISTER IS DAT 
AD= 20 ;QBE ADDRESS REGISTER IS 
HOG= 0 ; MODE 
Bi= 40 ;ONE TRANSFER PER DMG 
B2= 100 TRANSFERS PER DMG 
B4= 140 ;FOUR TRANSFERS PER DMG 
DATIO= 200 ;DATIO TRANSFER 
IN= 400 ;DATA IN TO QBE TRANSFER 
= 600 ;DATA OUT FROM QBE TRANSFER 


; 
;QBE CSR2 bit definitions 





MOV 
BMI 
BR 
CLR 
CLR 
ee oe 
10$: BIT @B1T00, @@STATL 
S08 ,10$ 
11s: IT @B1T01,@2STAT1 
MOV $1,0QBE18 
BR 23 


;Load chain address register 

F start chain command 

sWas TC bit set? 

;Loop control 

sWas EOP received? 

‘SET FLAG INDICATING THAT A QBE IS PRESENT 
3 


;Command chain to check for QBE at location 170000 
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3016 017200 


30235 017216 
3025 017222 
3026 

3027 

5028 017226 
3029 017232 
3030 017234 
3031 017236 
3032 017240 
30335 017244 
3034 017252 
3035 017260 
3036 017266 
3037 017270 
3038 

3039 017272 
3040 017300 
3041 017302 
3042 017310 


3045 017312 


017424 
3074 017432 





000602 
177400 
000001 
000030 
005037 


033737 
404 


012737 
012737 
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017656 
174442 


243: 


51$: 


20$: 


5$: 


6$: 


7$:; 
Q1822: 


‘SUBROUTINE TO INITIATE DMA TRANSFERS TO/FROM THE @BUS EXERCISERS 


Q22BEX: MOV #QBE2+2 ,QBEGO+10 
MOV #QBCHN2 , 9@CHALL 


osce*aa § | 


w 
WH 
=d 


Boao Si 


maine 


20, SOURCE 
177400, QBE1 


@#QBE18 


51$ 


4s 


RO 


@#CHA1H 

#25$ , @@CHALL 
#SC . 9@CMDR 
— 


RO, 20$ 


laine iad 
7. 


177400, QBE2 


aeQBE22 
@0QBE16 , A#QBE22 







3$ 
PC 


6$ 


QserIN 


#81700, a9qBE22 
PC ,Q22BEX 
QBEFIN 


PC ,Q18BEX 
a 


:Chain load word 
shold 


;destination is the Q@ bus exerciser on the LSI bus 
soperation a. 


asda | - 
;NO 18 BIT QBE PRESENT 

;1S THERE A Q@22 BUS EXERCISER PRESENT? 

QBE22 


EFIN 
#BIT00 , a#QBE18 


sInit RO 


Lead chain address register 
sea start chain command 
;Was TC received? 

Lee control 

;hes EOP been received? 


;SET FLAG INDICATING Q22 PRESENT 


chain to check for QBE at location 170020 
eeeinat ion te the Q bus exerciser on the LSI bus. 
ot register 
;NO Q22 BUS EXERCISER PRESENT 


;QBE 22 STARTING ADDRESS 
;LOAD CHAIN ADDRESS 





F 7 | 
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ERF 
3075 017440 000406 BR QBEXER | 
3076 017442 012737 170002 017656 Q18BEX: MOV $QBE1+2,QBEGO-10 ;SET UP FOR QBE 18 TESTS 
3077 017450 012737 017716 174442 MOV $QBCHNS . 9¢CHAIL 
2078 ;FIRST LOAD THE QBUS EXERCISER WITH DESIRED PARAMETERS, AND THEN 
3079 ;TELL IT TO GO EXECUTE THE OPERATION 
3080 017456 005037 174446 QBEXER: CLR @SCHALH ;CLEAR CHAIN ADDRESS SEGMENT/TAG 
1 017462 012737 000001 001410 MOV #1, @8SOURCE 
3082 017470 012737 020601 044746 MOV 4BDQXFR.EMADR :: SET ERROR ME 
017476 012737 045206 044752 MOV #@NOSIG.ESADR ;; SIGNA on 
01 000240 NOP ;;.. ERROR WILL BE CALLED LA 
01 042737 177540 BIC #B1T05, @@K2CSRU CLEAR SACK TIME-OUT BIT 
3084 017514 012737 000240 174454 MOV 1, 38CMDR ; ISSUE START CHAIN 
5 01 004737 017572 JSR PC,1 ; T TRANSFER WAS SUCCESSFUL 
3086 017526 CLR RO 
3087 017530 077001 SOB RO, . ;GIVE IT TIME 
3088 ;NOW CHECK THE RESULTS OF THE TRANSFER 
3089 017532 012737 017744 174442 MOV $QBCHN4 , @@CHALL ; 
3090 017540 012737 020513 044746 MOV  @0MA4,EMADR :; SET ERROR MESSAGE. . 
7546 012737 045206 752 MOV @NOSIG,ESADR ;;...AND SIGNATURE POINTERS.. 
017554 000240 NOP 33..-ERROR WILL BE CALLED LATER. 
3091 017556 012737 000240 174454 MOV #SCCCH1 , @@CMDR : 
3092 017564 737 017572 JSR PC,1$ 
3093 017570 207 RTS PC 
3095 017572 1$: ; SUBROUTINE TO CHECK STATUS OF DMA TRANSFER 
3097 017572 052737 014000 174456 BIT #14000, 9¢STAT1 ;DID TRANSFER FINISH 
3098 017600 001774 BEQ : 
3099 017602 032737 000002 174456 BIT SE0P , @SSTAT1 ;WAS THERE AN NXM? 
3100 017610 001402 BEQ 2$ 
3101 sz\\ 
3; >> ERROR 112, BAD TRANSFER 
17612 104112 ERROR+112 cade 
3102 017614 000413 33 
3103 017616 032737 000001 174456 2%: BIT $TC, @@STAT1 ;DID TRANSFER COMPLETE SUCCESSFULLY? 
3104 017 001007 BNE 3$ 
105 017 012737 020451 044746 MOV #0MA3, EMADR 334 
017634 012737 045206 044752 MOV SESADR is: wa ERROR 113, INCOMPLETE TRANSFER, EOP!TC NOT SET 
017 104113 ERROR+113 33/7 
38s 017644 3s: RTS PC 
é 
108 Command chain to tel] the to start ation 
3109 017646 001606 QBEGO: <ENRA? CAR COP! 1V SHOE» ;Chain load word 
3110 017650 000020 001410 20 ld source 
3111 017654 177420 177420 
112 017656 000000 ; 0 sREPLACE ZERO WITH ADDRESS OF QBE CSR 2 
Shia otveee Sooe ie DMAV ——— 
stiz 017664 000140 <SWRQ!HM>, <TRUWYINTLY> 
3it9 017670 0014507 QBCHN2: 160 ;Chain load word 
3118 017672 000000 017770 0.08670. ; is 
3119 017676 177400 i 177400 ;Destination is the aq22 bus exerciser 
3151 OL77oR  Sooons Lr OMA ) 
3} 017706 900030 100140 eSURQ!HM>, <CTC! TRMMPINILYS 
3123 017712 000000 017646 0, QBEGO :Chain address 





G/ 


KXJ11-CA FUNCTIONAL TEST 
17 Q@-BUS INTERFACE 


3124 
3125 
3126 017716 


35 
3136 017744 
3137 017746 
3138 90 


1 17752 
3139 017756 
3140 017760 
3141 017764 
3142 
3143 017770 

017 


3144 








017770 
170000 


100140 
017646 


061022 
061022 


000000 
000344 


areas or 
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;Command chain to load GBE with data. 
QBCHNS: 1607 ;Chain load word 
0,QBETO1 ; is 
177400, QBE1 ;Destination is the ql8 bus exerciser 
;Load Seven words 
DMAV ;DMA vector 
<SWRG!HM>, <CTC! TRWW! INTLV> 
0,QBEGO ;Chain address 
;Command chain to transfer and search from Q bus memory to IOP memory. 
;Will search for end of data pattern 125252. 
QBCHN4: <CARA!CARB!COP!PATMSK!MODE> ;CHAIN |.O0AD WORD 
<QBMEM! UP> ,BUFRI LSI Y 
0,BUFRI : TOP MEMORY IS DESTINATION 
1000 COUNT 
125252 ,0 PATTERN /MASK 
31,344 ; <SWRQ!HM! SNM> , <INTLV, STWW> 
QBETO1: 


;DATA FOR FIRST CSR 
;DATA FOR SECOND CSR 
BUFR1 ;DMA_TRANSFER ADDRESS 





- 1000 ; C 
125252 ‘DATA FOR QBE DATA REG 
ri SLATENCY COUNTER/ READ ONLY 
oi ‘MAX VALUE LATENCY COUNTER 
WRD!AD!HOG !DOUT DATA FOR FIRST CSR 
sDATA FOR SECOND CSR 
TSTLoc. :OHA TRANSFER ADORESS 
SDATA FOR QBE DATA REG 
0 ‘LATENCY COUNTER/ READ ONLY 
a ‘MAX VALUE LATENCY COUNTER 
WARD! AD!H0G !DOUT DATA FOR FIRST CSR 
;DATA F of SECOND 
TSTLOCe2 GRANSEER ADDRESS 
- 100000 ;WORD COUNT 
9 ATEN OUnTeR Re ONLY 
: 
0 ‘MAX VALUE LATENCY COUNTER 
SASCII ERROR MESSAGES 
OMA1: .ASCIZ /BUS TIME-OUT AT DMA 
DMACi: “ASCIZ /CHAN X (LOCAL => LOCAL)/< 
DMAC2: ASCIZ \CHAN X (LOCAL(1/0)=> 
DMAC3: .ASCIZ /CHAN X c => Q 
DMAC4: ASCIZ /CHAN X (Q-BUS => @ 
OMACS: “ASCIZ /CHAN X (Q-BUS => L 
DMAC6: ASCIZ \CHAN X (@-BUS 1/0 =>L 
DMAC7?: “ASCIZ /CHAN X (Q-BUS 
DMAZ:| “ASCIZ /TC!EOP INTERRUPT 
DMAS: “"ASCIZ /OMA INCOMPLETE, 
DMA4: ASCIZ /DMA INCOMPLETE, 





|‘. ee 





H7 
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3160 020562 DMAS : 
3161 020601 200 102 101 BDQXFR: .ASCIZ <CRLF>/BAD 


3162 020627 , SACK 
3163 020661 105 117 120 EOPER: .ASCIZ /E0OP NOT SET BY SACK TIME-OUT/ 
ter 020716 104 124 103 SACKER: .ASCIZ /DTC CONTENTS NOT AS EXPECTED AFTER SACK TIME-OUT/ 


16 , 
3166 021000 QBEF IN: 


I/ 


KXJ11-CA FUNCTIONAL TEST 
17 Q-BUS INTERFACE 


5168 

3169 021000 
3170 021006 
3171 021010 
3172 


3173 
3174 021014 


3199 021150 
3200 021154 
$201 021156 





012737 
004737 


012737 
012737 


010000 
021754 


021356 
000241 
021512 
000020 
021416 
006241 
021512 


001412 
177770 
000004 


021756 
045206 
021754 
021476 
021502 
021436 


000241 


021512 
021622 


021504 
021510 
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160132 


021442 
021462 


;NOW SEE IF THERE IS A KNOWN GOOD IOP IN Wy SYSTEM 


sKNOWN GOOD I 
;BOOT/SELF TEST SWITCH 
GD$IOP: ;INIT SOME ht LOCAL MEMORY 


#61T12,3SWR 
GD$IOP 


;IS THERE A KNOWN GOOD IOP 


IOPEND 
OP MUST BE SET TO ID@ 15 AND oe AT ADDRESS 1775740 
SHOULD BE SET 


TO 5 OR 6 


MOV 1.R ; 
MOV $4096. -R2 
CLR R3 
199%: MOV R3,(R1)« : 
ADD #2.R3 
SOB "199% 
MOV €TSTLOC,R2 ;INIT MORE MEMORY LOCATIONS 
MOV $-1,(R2)+ 
CLR (R2)+ 
MOV #125252, (R2)+ 
MOV #52525, ( 
MOV #63636, (R2)+ 
MOV $36363,(R2) 
CLR @eCMDR ;RESET THE DTC 
MOV $111, 28MMR ;LOAD DTC MASTER MODE REGISTER 
CLR ; CHAIN ADDRESS SEGMENT/TAG 
;INIT Q@BUS MEMORY WITH KNOWN DA 
i$: MOV #230$, ;LOAD CHAIN ADDRESS 
MOV ; ISSUE START CHAIN COMMAND 
jn GEST ; 
MOV $20,R2 ;GIVE THE KNOWN GOOD IOP 16 CHANCES 
200$: MOV $250$,@8CHA2L § ;LOAD CHAIN ADDRESS 
MOV @SCMDR ;ISSUE START CHAIN COMMAND 
JSR PC, CH2STA 
BVS 2008 ;TRY AGAIN IF V BIT IS SET 
210$ st TSTLOC sAS TPRO OF THE KNOWN GOOD IOP = ZERO? 
BIC $tC7, TSTLOC+2 ; STRIP OFF NON-STATUS BITS 
CW #4 TSTLOC*2 ; IS KNOWN GOOD IOP WAITING FOR A Q-BUS COMMAND? 
212$: SOB R2, 200% ‘NO, TRY AGAIN UP TO 16 TIMES 
MOV @KGNR, EMADR 33 
MOV  @NOSIG,ESADR ;; >> ERROR 114, NO RESPONSE FROM KNOWN GOOD IOP 
ee 3// 
> oer 3 
MOV e5ei% Oba ;L0 ADDRESS 
MOV 02514 SACHA ;ISSUE START CHAIN COMMAND THAT WILL 
;LOAD KNOWN GOOD IOP TPRS 2 & 3 WITH LOAD 
3P AND THEN COMMAND IT TO DO A 
H 
JSR CH2STA ; 
BS ST ;TRY AGAIN IF SACK TIME OUT OCCURRED 
;KNOWN GOOD IOP HAS NOW BEEN INITIALIZED 
2lis: 3 


MOV #256$ ,251$+4 
MOV #256$+4,251$+24 ; 


o— we 


J/ 
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3238 
3239 021372 
40 
3241 
3242 021376 
3243 021400 
3244 021404 
3245 021410 
3246 021412 
3247 
3248 021416 
5249 021416 
021420 
3251 021424 
430 


$278 021512 
3279 





012737 
12737 
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174440 
174454 


174440 
174454 


220%: 
230%: 


MOV $251$,@9CHA2L ;LOAD CHAIN ADDRESS 
MOV @SCMDR ;ISSUE START CHAIN COMMAND 
JSR PC, CH2STA 
BVS 211$ 

JSR PC, TPRCHK 
MOV $QBCHN4,@SCHA2L ;CHECK THAT TRANSFER COMPLETED 
MOV @SCMDR ;ISSUE START CHAIN COMMAND 
JSR PC, CHOSTA 

JMP IOPEND 

; TRANSFER DATA IN K2 LOCATIONS TO @ BUS MEMORY 
<CARA! CARB! COP !MODE > 

“4 2¢E41UP> BUFR 

< 25MEM!UP> , BUFR 





4096. 
<SWRQ!HM> , <CTC! TRWW! INTLV> 


; TRANSFER DATA IN K2 LOCATIONS TO QBUS MEM 
<CARA! CARB !COP ! MODE > 


250$: 


251$: 


<K2MEM!UP> , TSTLOC+4 
es » TSTLOC+4 


<SWRQ!HM> , <TRWW! INTLV> 
;CHAIN FILE TO READ TPRO AND TPR1 OF KNOWN GOOD IOP 


<CARA! CARB ! COP !MODE> 
SENDS TStLOe 175740 s;ADDRESS OF TPRO IN KGIOP 


ws TSTL 

<SWRQ!HM>, <TRWW!INTLV> 

;CHAIN FILE TO LOAD PARAMETERS INTO TPRS 2 € 3 
<CARA! CARB! COP !MODE > 

<K2MEM! UP > 

.WORD 255$ 

<QBUSIO!37400!UP>, 175744 

<SWRQ!HM>, <CICEIORE INTLY> 


sISSUE A nniton 


COMMAND 
CARA! CARB ! COP !MODE > 
<K2MEM!UP> 


-WORD 255$+4 
pms aeons 175740 
<SWRO!HM>, <TRWWIINTLV> 


WORD KGSTOL sCHAIN.T0_INIT KNOWN GOOD. TOP MEMORY 
& < see*s 

WORD > AAT GAD COMMAND FOR KNOWN GOOD IOP TPRO 
“UORD po 

‘ < 3 > 

"WORD 2 ,DMA LOAD COMMAND FOR KNOWN GOOD IOP 


SUBROUTINE TO POLL THE CHANNEL 2 STATUS REGISTER TO 
* HINDICATE WHEN A TRANSFER HAS FINISHED AND IF IT WAS SUCCESSFUL. 


———— 


KK / 
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3280 021512 
3281 021520 
3282 021522 
3283 021530 
3284 
32865 021532 
3286 021540 
3287 021542 
021550 
021556 
3288 021560 
$289 021566 
3290 0 
3291 021572 


3308 021664 
3309 021672 
3310 021674 

021702 

021710 
3311 021712 
S3l2 021714 
3313 021722 
3314 021730 
3315 021732 


3317 021734 
3319 091736 
3320 021742 
3321 021746 
suse 021750 


012737 
005037 


012737 
012737 
0047 


177777 
001414 


021734 
000241 
021512 
001412 
154000 
022016 
045206 


177770 
000004 
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174454 
174454 


177540 


044746 
044752 


177540 
174454 


044746 
044752 


001412 
174440 
174454 


001414 
044746 
044752 


001414 
001414 


2s: 


1$: 


3$: 


TPRCHK : 


i$: 
23: 


3$: 


4$: 


BIT #14000, aeSTAT2 ;LOOK FOR THE CA!NAC BIT TO SET 
BIT SE0P, aeSTAT2 ;WAS THE TRANSFER SUCCESSFUL? 
; TRANSFER WAS NOT SUCCESSFUL. WAS IT DUE TO SACK TIME-OUT? 
BIT $B1T05, aaKOCSRU ; 
BNE 2$ 
MOV F sz\\ 
MOV @NOSIG.ESADR  ;; >> ERROR 115, TRANSFER INCOMPLETE, EOP SET 
ERROR+115 :3// 
BIC #81105, a8K2CSRU ;CLEAR THE SACK TIME-OUT BIT 
SEV - ;SET THE V BIT IN PSW 
BIT #TC .aeSTAT2 ;WAS TC SET? 
BNE 3$ ; 
MOV § #DMA3, EMADR 53\\ 
MOV #NOSIG.ESADR  ;; >> ERROR 116, TRANSFER INCOMPLETE, EOP!TC NOT SET 
ERROR+116 3 // 
RTS PC 
;SUBROUTINE TO CHECK TPRO & 1 OF THE KNOWN GOOD IOP AFTER 
;ISSUING A QBUS COMMAND TO IT 
HOV ¢-1, TSTLOC ;INIT TEST LOCATIONS 
+ ; 
iNOW READ TPR O & 1 OF THE KNOWN GOOD IOP TO Tike SURE COMMAND IS DONE. 
MOV #SCCCH2 , @¢CMDR + ISSUE START CHAIN COMMAND 
JSR PC, CHOSTA 
BVS 2$ STRY AGIAN IF SACK TIME-OUT IS SET 
st TSTLOC :1S TPRO OF KNOWN GOOD IOP = ZERO 
BIT #154000, TSTLOC+2" ;ANY ERRORS? 
MOV @KG.ER,EMADR = ;;\\ 
MOV G,ESADR  ;; >> ERROR 117, KNOWN GOOD IOP ERROR 
si ERROR «117 3347 
BIC $tC7,TSTLOC+2  ;STRIP OFF NON-STATUS BITS 
#4, TSTLOC+2 
BNE 
RTS PC 


;CHECK TPR O € 1 OF KNOWN GOOD IOP TO SEE THAT COMMAND WAS SUCCESSFUL 


<CARA! CARB ! COP !MODE > 
peo ed li eine a FROM TPRO € 1 OF KNOWN GOOD IOP 


<sura!Ht> » <TRWW!INTLY> 





L/ 
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3330 


3342 06 
3343 022110 
3344 

3345 022114 
3346 4 


3350 022130 
3351 


001602 
100000 


000000 
010000 
000030 


KG$TO1: 


KG$TO2: 


KG$TO3: 
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;INIT KNOWN GOOD IOP’S MEMORY WITH KNOWN DATA 
<CARA! CARB! COP ! MODE > 


4096. 
<SWRQ!HM>, <CTC! TRWW!BUSHOG> 


ee ee eee, Tee MEE CORR BATA 


Kenen! UP. TSTLOC+4 
<SURQ!HM, <TRWW! BUSHOG> 


;CAUSE THE KNOWN GOOD IOP TO TRANSFER TO QBUS 
<CARA! CARB! COP !MODE> 


<K2MEM!HOLD>, TSTLOC+4 ;TRANSFER FROM KNOWN GOOD IOP MEMORY... 
RUFRI MEMORY 


<QBMEM!UP>, ;..10 Q-BUS 


1000 
<SWRO!'HM>, <TRWW!BUSHOG> 


M/ 


KXJ11-CA FUNCTIONAL TEST 
T10 SECOND SERIAL LINE NEC7201 


3355 


3388 022412 


012737 
0 
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123 


001110 


044746 
044752 


000104 
156722 


5 5 ESRSESSSE SS 44 5888S EEEEEEESEESEEEEEEESEEEEEEE4O000000000000000008 
*TEST 10 SE LINE 7 

5 5 F8SESSS6SS5046$0856406084805008044000880089840000000902000800 008 
TST1i0: SCOPE 


MOV SSTACK,SP 3; SET A CLEAN STACK. 
MOV #-1, TRAPS. 33 DISMISS Bus- ERRORS . 
CLR EMPRE ERROR PREFIX. 
BIT $8118, aSUR * FORCED ENTRY SELECTED 2? 
BNE 30048$ ; BR IF SO. 
1st a$Sl2 3; CHECK FOR VALID $SL2. 
BYC 30048$ ;; SKIP NEXT IF OK 
30047$: JMP TSTil 3; BYPASS. 
30048$: T$NAME, .+4 3; PRINT TEST NUMBER AND NAME... 
BR AND SKIP OVER THE ASCII. 


30049$ Shine 
-ASCIZ \ SECOND SERIAL LINE NEC7201\ 


9$: 
5p EEKEEEEKEEEEESEEAERERESEREREAERERRESERERERREREKEREEREREREREEEES 


;#TEST 10.1 

om . 

i 5 SESESEKESSSESSESSSSESRSECESASERERESKKSESEKKEKEAKEKEAKKAKAKKARERAAEREERSE 
10.1:: 


; NEC7201 SYNC/ASYNC (MLATI-PROTOCOL) SERIAL INTERFACE. 
INCLUDES AN INTEL 8254 TRIPLE PIT FOR BAUD RATE GENERATION. 


FIRST, SET UP THE BAUD GENERATOR, AND VERIFY 
GENERAL PURPOSE 


3 
; 
; 
; THAT 

; TIMER 2 (800HZ) WORKS AS ADVERTISED. 








BAUDSET: 
Mov ;; LOOP HERE ON ERROR 
MU ; 18254 
MOV ; SET A TRAP CATCHER 
SPL. ; RAISE CPU. 
MOVB ; CHAN A <TIMER-0!2-BYTES !MODE-3!BIN> 
MCVB ; CHAN B <T SAME 
MOVB ; 8OOHZ <TIMER-2! SAME EXCEPT MODE-2> 
MOV ; SET 800HZ INT s= 50HZ 
MOVB 
MOV ; SET CHAN B. 
HOV ;...AND CHAN A FOR ASYNC 4800 (SYNC 76.8K). 
i$: ist ; VERIFY THE REMAINING REGISTER ADDRESSES. 
BHI 
a BR ; SO FAR SO GOOD, SKIP OVER THE TRAPPER. 
ggNA 
POV oLAl6, re >> ERROR 120, BUS ERROR AT 7201 OR 8254 ADDRESS 
ERROR+120 s3// 
UMP NEC .END 
3$; CLR TRAP4X ; 
MOV #5$,PEVNT Se 
BIS @B1T7,a$CSRA —_; 
CLR R1 





a + EE oe 0 ae RR IE BY TE EER ER mT 





N/ 
KXJ11-CA FUNCTIONAL TEST 
T10.1 CLOCK GENERATOR 18254 
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3389 022414 CLR RO 

3390 022416 106427 000000 MTPS PRO ; LOWER CPU. 

3391 022 077001 SOB RO, . ; DELAY, PEVNT SHOULD INTERRUPT AND... 

3392 022424 005301 DEC Ri ;...GIVE A FEW TICKS (MORE THAN 1). 

3393 022426 003007 BGT 4$ 

3394 022430 012737 047455 044746 MOV § 4NEC2.EMADR 53\\ 
022436 012737 045206 044752 MOV @NOSIG.ESADR ;; >> ERROR 121, 8254 TIMER 2 (800HZ) DOESN'T WORK 
022 104121 ERROR - 33// 

95 022 005077 156662 4$: CLR as ; TURN OFF PEVNT... 

3396 022452 012737 000260 175736 MOV $260,89175736 ;...AND TIMER 2 (MODE-0). 

3397 022460 012737 002542 000104 MOV @DISMISS,PEVNT ;...RESET THE VECTOR... 

3398 022466 000434 BR NEC. ASYNC ;. . AND 

3400 022470 005201 000002 S$: .WORD INC+i, RTI ; ON INTERRUPT, TICK AND RETURN. 

3402 022474 000020 HZ800: 16. ; DIVIDER YIELDS == SOHZ 

3403 022476 000200 A4800: 128. ; DIVIDER YIELDS ASYNC 4800 AND/OR SYNC 76.8K. 





KXJ11-CA FUNCTIONAL TEST 


710.2 SYNC/ASYNC DATA 
3405 
022500 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 000004 
3416 000005 
3417 177774 
3416 177776 
3417 000000 
3420 000002 
342° 
3494 000 030 
059802 ©«osti«t 
3426 022504 004 104 
et oS 003 301 
8 10 005 152 
nH 022512 000 020 
3430 022514 001 036 
3431 022516 177777 
uk 
34 
3439 
3435 022520 000 030 
3436 022522 002 024 
MP 7 3 004 040 
006 000 
ett 007 76 
003 + 
3441 02 005 15 
ii eee ea 
34a 02 900 «00 
3445 02 aa Ose 
seas 177777 
344 oot 004 
3448 00 300 
3449 005 142 
i 177777 
02 12700 022500 
3453 02 112701 000101 
3454 022570 7 
72 012700 022520 
das) 000177 
7 2777 000004 
3458 022610 010037 023254 
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156524 





of ESSSESSESESESSSSES SSH SEESSSSSSSESSSESESRESEESESEESESEEEEESEREREEESEEEEEEREEO 
DATA 


SYNC/ASYNC 
5 5 SSRSSSSSSESESEEEEE ESSE EEEEEE SS O400000000040400000000000000008008 
es: 


;#TEST 10.2 


; FIVE PASS SYNC/ASYNC DATA TEST CREQUIRES EXTERNAL LOOP-BACKS). 







: 1. CHAN B, ASYNC (4800 BAUD). 
>° CHAN A, ASYNC (4800 BAUD). 
3. CHAN B. SYNC (76.8K BAUD). 
4. CHAN A, SYNC (76.8K BAUD). 
; S° CHAN A. SYNC, DMA DRIVEN. 
CHA= 4 ; DEDICATE R4 AS "CHAN-A" AND.. 
CHX= 5 ;...R5 AS “CHAN-IN-TEST" PORT POINTERS. 
STAT=  -4 ; INDICES TO CHAN A/B STATUS. . 
. : . RCVR DATA. . 
CTRL= 0 CONTROL... 
> * °°" "AND XMTR DATA PORTS. 
; ASYNC SET-UP R CODE FUNCTION 
A.SET: .BYTE 0, 030 ;C <CHANNEL RESET>. 
"BYTE .2. 024 ; BUS INTERFACE <NON-VECTORED!PRI1!NO-DMA>. 
"BYTE 4. 104 + PROTOCOL.  <XI6!ASYNC-1-STOP!NO-PARITY>. 
"BYTE 3, 301 ; RCVR CONTROL <8-BPC!RX-ENAB>. 
‘BYTE 5, 152 ; XMTR CONTROL <B-BPC!TX-ENAB!PRTYX-B>. 
"BYTE 0, 020 ; COMMAND <RESET - $>. 
‘BYTE 1, 036 5 INT CONTROL <RXI- ON-ALL !CAV!TX-IE!NO-EXT-IE>. 
; SYNC SET-UP R CODE FUNCTION 
§.SET: .BYTE 0, 030 ; COMAND < RESET>. 
"BYTE 2. 024 ; BUS INTERFACE <NON-VECTORED!PRI1!NO-DMA> 
"BYTE 4. 040 ; PROTOCOL <X1!SDLC!SYNC!NO-PARITY> 
"BYTE 6, 000 ; SYNC 1 <SEARCH SORES - UNUSED> . 
BYTE 3. 311. | RCVR CONTRA <6 eit ne 
"BYTE 5, 153 ; XMTR CONTROL <8! SOO IRX-OUB> cae ENAB> . 
"BYTE 0: 200 ; -GEN>. 
‘BYTE 0. 100 + COMPA <RESET W_CRC-G 
‘rte O° Ose | SRT CONTROL <RICE-ON-ALL TCAVTX-IE!NO-EXT-IE>. 
C.CLR: .BYTE 1, 004 ; INT CONTROL <KEEP-CAV!DISABLE-ALL-ELSE> 
"BYTE 3, 300 ; RCVR <RX-DISABLE> . 
Byte 5, 142 5 XOTR <TX-D 
NEC.ASYNC: MOV @A.SET,RO ; ASYNC MODE FIRST... 
#'A.R1 
BR NECO1 
NEC.SYNC: MOV $5.SE7.RO ;...THEN, SYNC (SDLC) MODE.. 
BIS #4, a$CSRA .REQUIRES <SYNCMA!-SYNCMB> IN CSRA. 
NECOL: MOV RO.8$ ; SAVE POINTER AS SYNC/ASYNC FLAG. 
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3459 022614 012737 047531 044742 MOV CCM ; SET ERROR PREFIX.. 
3460 022622 112737 000102 047536 MOVB  « #’ B NEC ;...CHAN B.. 
3461 022630 110137 047541 MOVB R11. NECM ;.. JASYNC/SYNC. 
3462 022634 012737 022642 001110 MOV +6, $LPERR ;; LOOP HERE ON ERROR. 
3463 022642 012706 001100 MOV eSTACK, SP 
3464 022646 013704 00 MOV $SL2, CHA ; GET NEC7201 BASE... 
3465 022652 04 ADD #4, CHA ;...AND RAISE TO CHAN-A CONTROL PORT. 
022656 010405 MOV CHA, CHX ; COPY... 
3467 022660 05 000010 ADD #10, CHX ;...AND RAISE TO CHAN-B CONTROL PORT. 
022664 111014 MOVB (RO), (CHA) 
022666 116014 000001 MOVB 1(RO), (CHA) ; COMMAND <CHAN-A-RESET (INCLUDES INT LOGIC)>. 
3470 022672 000240 240,240 ; WAIT A MOMENT. 
3471 022676 112015 MOVB (RO)+,(CHX) 
3472 022700 112015 MOVB  (RO)+.(CHX) ; COMMAND <CHAN-B-RESET>. 
3473 022702 000240 240,240 ; WAIT AGAIN. 
3474 022706 106427 000200 1$: MIPS § @PR4 ; CPU. 
3475 022712 112014 MOVB  (RO)+, (CHA) ; POINT... 
3476 022714 11201 MOVB = (RO)+. (CHA) ;...AND SET BUS-INTERFACE (CR2A ALWAYS). 
3477 022716 112015 2%: MOVB = (RO)+.(CHX) ; POINT... 
3478 022720 112015 - MOVB  (RO)+.(CHX) ;...AND SET-UP THE REST. 
722 105710 TSTB =. CRO) 
3480 022724 100374 BPL 2$ 
3481 022726 012703 061022 MOV SBUFR1,R3 
022 012700 MOV #16. ,RO 
3483 022736 005023 3$: CLR (R3)+ ; CLEAR SOME FREE SPACE. 
3484 022740 077002 S08 RO, 3$ 
3485 022742 012703 061022 MOV SBUFR1,R3 ; RCV BUFFER POINTER => R3. 
746 012702 037 MOV $FLT10,R2 ; XMT BUFFER POINTER => R2. 
3487 022 37 001124 CLR $GDDAT ; CLEAR FOR EXP’D... 
2 37 001126 CLR $BDDAT ;...AND REC’D DATA 
3489 028762 37 001130 CLR $BDDAT+2 ;... AND FINAL STATUS 
3490 0227 37 001132 CLR T+4 
349 2 012737 023674 000070 MOV @NEC.I,NECV ; SET VECTOR 
34 106427 000000 MTPS ;...LOWER CPU. 
3493 023004 005000 CLR RO 
94 023006 012701 000001 MOV #1,R1 ; INIT BYTE COUNTS (RCV=0, XMT=1).. 
3495 023012 112265 000002 MOVB (R2)+,XDB(CHX) ;...XMIT 1ST BYTE.. 
96 3016 112715 000300 MOVB § #<3aBIT6>,(CHX) ;...AND COMMAND <RESET-IDLE/CRC-LATCH>. 
9 2 727 023254 022520 CMP 8$,4S.SET ; SYNC MODE ?? 
98 023030 001405 BEQ 41s ; BR IF SO. 
923082 020127 011022 4$: CMP R1,4<18.#81T8>!18. ; ASYNC -- 18 BYTES TRANSFERRED ?7 
3501 02 001435 SEQ s«4as ; BR IF SO. 
3 OS30a0 077004 SOB RO,4$ ; ELSE, HANG-AROUND. 
3508 023042 000416 BR 43$ 3 ASYNC WAIT LOOP TIME-OUT. 
3505 02 105737 001132 41$: STB  $BDDAT+4 ; SYNC -- <EOF> RECEIVED 77 
3 02 100410 BMI 42$ ; BR IF SO. 
3 077004 SOB RO,41$ ; ELSE, SAME-OLE-CRAP. 
023054 012737 047625 044746 MOV @NEC3A,EMADR = 5. ; \\ 
023062 012737 045610 044752 MOV #€F11,€SADR 33 >> ERROR 122, <EOF-SDLC> NOT RECEIVED 
3509 023072 020127 012022 aot, ai s<20. eBIT8!18°s , BYTE COUNTS RIGHT 77 
+4 * ; -> 
10 028076 O01415 BEQ sé : PROCEED IF SO. 
023100 110137 001124 43$: MOVB  R1,$GDDAT ; SENT THIS MANY... 
3513 023104 000301 Ri 
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3514 023106 
3515 023112 
120 


gee 
as 
OS 


EERERER ESE 


¥ 
wo 


te te 
Reo 


GS RVCBUVLLUULD 
aes 


Bak 
—~J 
o 


uw 
Ww 
w 
rw 


WwW 


Be 
BS 


seguaday 
2 


BRS 


8 


3565 


: 





110137 
0 


022550 


000101 
023254 
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044746 
044752 


044746 
044752 


047536 


001110 


MOVB R1, $BDDAT 
MOV #NEC3.EMADR 
MOV #€F10,ESADR 
ERROR+123 


3; BR 5$ 
NOP 
44%: MOV $18. ,R1 
MOV #FLT10,R2 
MOV 1 
45$: CMPB  (R3),(R2) 
BEQ 46$ 
MOV R3, $GDADR 
MOVB = (R'3). $BDDAT 
MOVB (R2).$GDDAT 
MOV § #NEC4, EMADR 
MOV #€F2,ESADR 
ERROR+124 
46$: CMPB  (R3)+,(R2)-+ 
SOB 453 
S$: MOV #C.CLR,RO 
6$: MOVB (RO)+, CCHX) 
MOVB (RO)+,(CHX) 
TSTB —_« (RO) 
BPL 6$ 
CMP CHX, CHA 
BEQ 7$ 
MOV CHA, CHX 
MOVB  #'A.NECC 
MOV 8$,RO 
TST (RO)+ 
BR i$ 
7$ CMP #S.SET,(PC)+ 
8$ A.SET 
BEQ NEC. DMA 
JMP NEC. SYNC 
os 
; NOW ONCE MORE 
; THE 7201 CHIP 
i 
NEC .DMA: 
MOY | #. +6, $LPERR 
ePR4 
MOV $2$,R1 
MOV #4, R2 
1$ MOVB  (Ri)+, (CHA) 
MOVB  (Ri)+,(CHA) 
SOB R2,1$ 
BR 3§ 
2$ .BYTE 2, 025 
‘BYTE 3, 311 
-BYTE 5, 151 
‘BYTE 1, 016 
3$: MOV @BUFR1,RO 


;..-AND RECEIVED THIS MANY. 


; DONE, CLEAN-UP TABLE POINTER => RO. 


\ 
33 > ERROR 123, LOOP TIME-OUT, DATA XFER INCOMPLETE 


i ERROR 124, RECEIVED DATA INCORRECT 
.AND LOOP 


-AND CLEAR (RESET) AS NECESSARY. 


. ELSE, DO IT NOW. 


USING DMA CASSUMING THAT 8016 dee OO >. 
IS STILL SET-UP FOR “CHAN A SYNC 


;; LOOP HERE ON ERROR. 


é 


ADJUST CHAN A SET-UP. 


POINT TO... 
. AND 


..THE FOLLOWING 4 REGISTERS. 


CHANGE BUS- ACE TO <CHAN-A-DMA> 
be 
CHANGE INT CONTROL TO <RXI-ON-1ST-CHAR> 
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023332 012701 000020 MOV $16. .R1 
3567 023336 005020 CLR (RO) ; CLEAR RECEIVING BUFFER. 
023340 077102 SOB ee 
3569 023342 012737 024026 000070 MOV $IXIT+2,NECV |; CHANGE THE VECTOR CINTS DISMISSED). 
3570 023350 012737 047551 044742 MOV COM, ; CHANGE ERROR PREFIX. 
3571 023356 005005 CLR ; SET-UP THE DMA ENGINE 
3572 023360 174454 CLR (R5) ; CHIP 
3573 023364 012765 000115 174470 MOV $115,MMR(RS) |; SET MASTER MODE <VI!WAIT!CPINTLV!ENAB>. 
3574 023372 012765 000074 174454 MOV 134,CMDR(RS) ; CLEAR IE‘S.. 
3575 023400 012765 000075 174454 MOV #41134, CMDRCRS) ;...B0TH CHANNELS. 
3576 023406 005065 174446 CLR 1H(RS) ; CLEAR HI CHAIN ADDRESS... 
3577 023412 005065 174444 CLR R5) ;...BOTH CHANNELS. 
3578 023416 012765 023450 174440 MOV #4$,CHAQL(RS) ; SET CHAN 2 (XMT).. 
3579 023424 012765 023470 174442 MOV #5$.CHAIL(R5) ;...AND CHAN 1 (RCV) CHAIN ADDRESSES. 
3580 023432 012765 000240 174454 MOV #SCCCH1,CMDR(RS) ;ISSUE START CHAIN COMMAND CHAN 1 (RCVR). 
3581 023440 012765 000241 174454 MOV #SCCCH2.CMDR(RS) ;ISSUE START CHAIN COMMAND CHAN 2 (XMTR). 
3582 023446 000420 BR 6$ 
3583 023450 001602 4$: 1602 ; CHAIN-LOAD ARA, ARB, OPK, AND CH-MODE. 
3584 023452 000000 037600 0, FLT10 ; FROM -- DATA TABLE. 
3585 023456 040020 175707 <K2TO!HOLD>, 175706+1 ; TO ---- 7201 XDB(LB), NO AUTO-INCR. 
3586 023462 000022 18. ; OPK --- 18 BYTES. 
3587 023464 000020 001201 SWRQ, 1201 ; MODE -- SFT-REQ, IP-ON-TC!E0P,SNGL,BYTE-BYTE. 
3588 023470 001602 S$: 1602 
3589 023472 040020 175703 <K2TO!HOLD>, 175702+1 ; FROM -- 7201 RDBC(LB), NO AUTO-INCR. 
3590 023476 000000 061022 0, BUFR ; TO ---- BUFFER 1. 
3591 023502 000024 20. ; OPK --- 20 BYTES (18 DATA + 2 CRC). 
359 023 000000 001201 0, 1201 ; MODE -- SAME AS ABOVE (EXCEPT NO SFT-REQ). 
3394 023510 112714 000300 6$: MOVB § #<3#BIT6>,(CHA) ; COMMAND <RESET-IDLE/CRC-LATCH>... 
3595 023514 005000 CLR RO 
3596 023516 106400 MIPS RO ;...LOWER CPU. 
3597 023520 032765 020000 174456 73: BIT $IP,STATICRS) ;...AND WAIT FOR CHANI C(RCVR) DONE. 
3598 023526 001001 BNE 8$ 
3 077005 S08 RO, 7$ 
3601 023532 016500 174462 8$: MOV COP1CRS),RO ; GET RCVR (CHAN1) BYTES REMAINING. 
3602 023536 00142 BEQ ; BR IF NONE CALL RECEIVED). 
3603 023540 012737 000024 001126 MOV $20. , $BDDAT 
3604 023546 160037 001126 SUB RO, $BDDAT ; ELSE, CALCULATE BYTES RCVD (CHAN1 OP COUNT)... 
3605 023552 012737 000022 001124 MOV #18.,$GDDAT 
023 166537 17 SUB copacR5) $GDDAT ;...VERSUS BYTES XMTD (CHAN2 OP COUNT). 
02 012737 047574 044746 MOV C3, EMADR saKk 
023574 012737 045556 044752 MOV €F10,ESADR 33 >> ERROR 125, DMA DATA XFER INCOMPLETE 
02 +125 33// 
02 2700 037600 11$: MOV @FLT10,RO 
3610 023610 012701 061022 MOV OBUFR1.R1 
3611 023614 012702 000022 MOV #18., 
12 3620 121011 12$:  CMPB  (RO),(R1) ; CHECK DATA 
361 3622 001415 BEQ 13$ ; BR IF OK 
14 010137 001120 MOV Ri, $GDADR 
3615 02 111 001124 MOVB (RO), $GDDAT 
$6 G5ieso HHT SONS ora 86 BUEN 
Pr 35 
023646 012737 045210 044752 MOV #€F2,ESADR $3 ERROR 126, RECEIVED DATA (DMA) INCORRECT 
023654 104126 ERROR+126 33 
3618 023656 12202) 13$: CMPB  (RO)+,(R1)+ ; BUMP 





077221 


77 
005065 


112715 


005726 
112714 
000002 
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155446 
174454 


000022 


177776 
000400 
177774 
00000 


1 
177774 
047655 


000070 
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000010 


001130 
001132 


044746 
044752 


ITX: 


1$: 


IRX: 


ISEXT : 


13: 


IxIT: 


a0o 


— Sag SEER ASREZE 


R2,12$ ;...AND LOOP. 

a@$CSRA ; ALL_DONE -- FINALLY, CLEAR CSRA... 
CMDRCRS ) ;...RESET DMA — 

NEC .MDM ;...AND PROCEED TO MODEM CONTROL TEST. 


SYNC/ASYNC INTERRUPT HANDLER (DATA TESTS ONLY). 
BYTE COUNTS MAINTAINED IN Ri (LO=XMT, HI=RCV). 


OC CHA) INTERRUPT -- POINT TO SR2B... 
STAT + LOCCHAD, (SP) ait gAND PUSH V VECT/COND. 
$3 ;...AND BR IF SPEC/EXT (1, 3, 5, OR 7). 
(SP) ; BIT , = 
IRX ;...AND BR IF RCVR (2 OR 6).. 
;...ELSE FALL THRU (O OR 4). 
R1, #18. ; - ANYTHING LEFT ?? 
; BR IF NOT. 
(R2)+,XDBCCHX) ; SEND NEXT BYTE... 
Ri ;...AND COUNT IT. 


IXIT 
#<S#BIT3>,(CHX) ; XMIT DONE, COMMAND <RESET-TXIP>... 
IXIT ..AND RETURN 


RDBCCHX),(R3)+ ; RCVR -- STUFF THE CHAR... 
ee ;...AND COUNT IT. 


STATCCHX), $BDDAT+2 ; SPECIAL/EXTERNAL, GET SRO... 


STATCCHX), #BDDAT 4 ;...AND SR1. 
; JUST RETURN IF <SDLC-EOF>. 
secs. EMADR we \ 
ie -ESADR a ERROR 127, UNEXPECTED EXT OR ERROR INTERRUPT 
IT3>,(CHX) » COMMAND <RESET-ERROR>... 
IT3>,( 3 ;...AND <RESET-EXTERNAL>. 
(SP)« ; FIX THE STACK. 


#<7sBIT3>,(CHA) ; S 


IGNAL <END-OF -INTERRUPT>. 
RETURN. 





G8 
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001110 


044742 
000070 


044746 
044752 


001126 
001126 


044746 
044752 


155064 


044746 
044752 


001130 


jf EREEREEEEESEESSSSEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEED EO ED 
MODEM CONTROLS 


;#TEST 10.3 


gp FESERESSESSESSSESSSSSSSSSSSSASSSSESESASSSEASESAEKEEEEEREEEREARERERESES * 
0 3: * 


CHB= «5 ; REDEFINE RS AS CHAN B POINTER. 
NEC .MDM: 
MOV #. +6, $LPEN? ;; LOOP HERE ON ERROR. 
MIPS  @PR4 ; RAISE CPU. 
MOV CHA, CHE 
ADD #10. CHB ; SET CHAN B POINTER. 
1s: MOVB § #<3eBIT3>,(CHA) ; <CHAN-RESET>. 
MOVB  #<3#BIT3>. (CHB) 
CALL DELAY 100US (MORE OR LESS). 
MOVE <2¢B1T3>!1,(CHA) ; <RESET-EXT>, 0 CRi. 
MOVB  #<2eBIT3>!1. (CHB) 
MOVB = #5, (CHA) ;...AND SET <CAV!INT-ON-EXT>. 
MOVB #5, (CHB) 
2$: MOV $NECMM, EMPRE : SET ERROR PREFIX. 
MOV @NEC.EX,NECV ; SET THE VECTOR. 
CLR R3 ; #%* DEBUG, COUNT INTERRUPTS IN R3. 
CLR RO ; 250 MSEC KEEP-ALIVE TIMER. 
MTPS RO ; LOWER CPU. 
; FIRST, TEST <REQ-TO-SEND>, <CLR-TO-SEND> AND <RCVR-READY>. 
3s: CLR — $BDDAT 1 CLEAR A SPACE FOR SROCAD. 
CLR $BDDAT +2 
MOVB = #5, (CHA) POINT TO CRSCA).. 
MOVB #2. (CHA) ~~ ;...AND SET <REQ-TO-SEND>. 
4s: TSTB  $BDDAT ; SHOULD GET SROCA) STATUS INTERRUPT. 
BNE S$ ; BR IF SO. 
S08 RO,4$ 
MOV  @NEC6, EMADR s3\\ 
MOV @NOSTG, ESADR 
S$: BIT @BITS,$BDDAT ; + SHOULD HAVE <CLR-TO-SEND>... 
BIT $B1T3,$BDDAT  ;...AND <RCVR-READY>. 
# BNE 74 
MOV @NEC7, EMADR s3\\ 
MOV 12; 
ERROR+131 33/7 
; NEXT, TEST CSRA<TT108/2> AND <DATA-MODE> BITS. 
5s: = CLR) «Ss SBDDAT+2 
MOVB § #B113,@§CSRA SET <TT108/2>. 
8$:  TSTB $BDDAT+2 ; SHOULD Get SROCB) STATUS INTERRUPT. 
BNE 9$ BR IF 
SHovaNete re 
HOV eNOSIG, ESADR i i 2> ERROR 132, STATUS INT NOT RECEIVED 
9$: BI #B1T3,$BDDAT+2 | SHOULD HAVE <DATA-MODE>... 





a vg ERROR 130, STATUS INTERRUPT NOT RECEIVED 


33 >> ERROR 131, STATUS WRONG WITH REQ-TO-SEND SET 


H8 
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3706 024306 


3707 024314 
3708 Oeeere 


372 

3718 024374 
3719 024402 
3720 024404 
3721 024412 
3722 024414 
024414 


000040 


050040 
045646 
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001130 


044746 
044752 


154766 


044746 
044752 


154734 
001130 
08 4746 
044752 


154674 


001126 
001150 


044746 
044752 


000070 


001126 
001130 


#B1ITS. $BDDAI +2 


; NEXT, TEST CSRA<TERM- IN-SERV>, 


#BITS, $BDDAT+2 
15$ 








33\\ 
i “ ERROR 133, STATUS WRONG WITH TT108/2 SET 


CSRB<TT142> AND <INCOMING-CALL>. 


i. “i ERROR 134, STATUS INT NOT RECEIVED 
‘SHOULD HAVE <TT142> IN CSRB... 
.AND <INCOMING-CALL>. 


#BITS!B1T3, $BDDAT+2 ;.. 
17$ 


AN 
7 >> ERROR 136, STATUS WRONG WITH EVERYTHING OFF 


' EXTERNAL (MODEM CONTROLS) INTERRUPT HANDLER. 
ss DEBUG, COUNT THE INTERRUPTS. 
<RESET-EXTERNAL >. 


T+2 


#<7#B1T3>,(CHA) ; 





-AND NOT <INCOMING-CALL >. 


-SERV> 
D GET ANOTHER’ SRO(B) CHANGE. 


s\\ 
Are ERROR 135, STATUS WRONG WITH TERM-IN-SERV SET 
33 


- CLEAR <TT108/2> 
; CLEAR <TERM-IN-SERV>. 
DELAY. 


; POINT TO CRSCA).. 
. «AND ee <REQ-TO-SEND>. 


1 
@B1TS!BIT3, $BODAT ; <CS!RA> IN SROCA) SHOULD BE CLEAR 
“AND <IC!DM> IN SRO(B) AS WELL. 


tMEND-OF- INTERRUPT> . 


18 


KXJ11-CA FUNCTIONAL TEST 
Til PARALLEL I/0 PORT Z8036 


3754 


3768 024756 
Me 4 024764 


3770 
3771 024766 
3772 024772 
3773 024776 
3774 


3775 

3776 025006 
3777 025010 
3778 14 





012737 


010537 
012737 
012737 
104140 


024714 
025044 


000060 
001330 
001126 
000001 
000001 


001126 
001124 
001124 


177777 
001126 
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001110 
002426 
001124 


001126 


044746 
044752 


044746 
044752 


jf FSSSESSSESSSESEESERESESESESESEEERESEESERESEEE4$4400000400000008 
PARALLEL 8036 


5#TEST 11 1/0 PORT Z 
; é ee 
"MOV &STACK, SP 33 SET STACK. 
MOV $-1, TRAP4X ;; DISMISS BUS-ERRORS. 
CLR EMPRE ; CLEAR ERROR PREFIX. 
BIT 5B1T8, aSUR FORCED ENTRY SELECTED 27 
BNE 30051$ 33 IF SO. 
TsT a$PIO ;; CHECK FOR VALID $PIO. 
BVC 30051 ¢ 3; SKIP NEXT IF OK. 
30050$: JMP TSTiz ; BYPASS. 
30051$: T$NAME, . :; PRINT TEST NUMBER AND NAME. 
BR 30052$ AND SKIP OVER THE ASCIT. 
"ASCIZ \ PARALLEL 1/0 PORT 28036 
“EVEN 
300525: 
; ZILGG 8036 CHIP HAS 48 REGISTERS. 
; RESET THE CHIP AND VERIFY THAT ALL REGISTERS RETURN ZERO. 
: MOV #.+6, $LPERR ;; LOOP HERE ON ERROR 
MOV 84$, TRAP 4X ; TRAP 
MOV ; CHECK 48 REGISTERS 
MOV $PI0.R5 ;...STARTING ‘SRE. 
CLR $BDDAT 
MOV $1, $GDDAT 
MOVB = #1.,(R'5) ; SET "CHIP-RESET” IN MICR. 
240 ; IF IT TRAPS, WE'RE DEAD. 
MOVB $BDDAT ; READ IT BACK.. 
CMP SEDOAT. SBDDAT ;...SHOULD SEE THE 1 BIT. 
BR 2$ ; CHECK IT AT 2$. 
1$: CLR $GDDAT ; EXPECT 0 FROM ALL THE REST. 
nove $-1,(R5) ; WRITES SHOULD BE IGNORED.. 
nove (RS), $BDDAT ;...AND READS RETURN ZERO. 
2$: BEQ 3$ ; BR IF OK. 
a ; aptoe EMADR \\ 
MOV  €F2.ESADR + >> ERROR 137, RESET STATE INCORRECT 
ERROR+137 33/77 
REST a ome. 
CR TRAP SX ; THEN, RESET TRAP CATCHER.. 
BR PIOT ;...AND GO ON. 
*: Sv «| Stow ewor \\ 
MOV "ESADR «3; >> ERROR 140, BUS ERROR ON PIO ADDDRESS 





RROD ADAG EE HS UD Oo oe FSOR + 04 WD OBESE SS S4RG 0s 0 V EOE 4 O20 CODORMDARES44 © 08 
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a 





3788 ite ee Ecce cas aie 
:* , 
: ¢ FSEESSEKSE SEEK ESEESEESESEESESEKESEERESEEEEEEEEEREESEEESESESSEEEEEEERERD 
nil 025072 Til.1:: 
3790 - 000000 MIC= 000 ; MASTER INTERRUPT CONTROL REG 
3791 000002 MCC= 002 ; MASTER CONFIGURATION CONTROL REG 
792 000010 CTV= 010 ; TIMER(S) T VOCTOR REG 
3793 000070 CIMS= 070 ; 1ST (OF 3) TIveR MODe SPEC REG 
3794 000024 CTCS= 024 ; 1ST (OF 3) TIMER CMD/STATUS REG 
3795 000054 CTTic= 054 ; 1ST (OF 6) TIME CONSTANT REG (3 PATR) 
5796 000040 CTCC= 040 ; 1°T {OF 6) CURRENT COUNT REG (3 PAIR) 
3798 ; VERIFY THAT EACH TIMER FUNCTIONS AS ADVERTISED. 
3799 ; CHIP IS “RESET” ON ENTRY AND EXIT. 
3801 025072 013705 001330 PIOT: MOV $PIO,R5 ; GET BASE ADDRESS. 
3802 025076 142715 000001 BICB #1,(R5 ; CLEAR “CHIP-RESET"... 
3803 025102 610504 MOV RS 
025104 012703 000060 MOV $48. .R3 
3805 025110 005024 1s: CLR (R4)> ;...AND CLEAR ALL REGISTERS. 
025112 077302 . SOB R3,1$ 
3807 025114 112715 000 MOVB #200, (R5) ; SET "MAST " 
025120 112765 000104 000010 MOVB  @PEVNT,CTVCRS) ; SET TO VECTOR THRU "PEVNT” 
3809 025126 112765 000160 000002 MOVB § #160,MCC(RS)  ; ENABLE ALL 3 T ee 
10 ;...CTMS = 0 = PULSE-OUT, ONCE-ONLY... 
11 ;...CTTC = 0 = TIME K 65536. 
12 0251 27 ADD aCTCS.RS ; NOW RAISE RS TO 1ST TIMER CSR. 
3813 025140 012737 050311 044742 MOV ITN ; SET ERROR PREFIX. . 
3814 025146 112737 050323 MOVB = #1, PITX ;...AND INIT ASCII TIMER NUMBER 
15 025154 012737 025162 001110 MOV #. +6, $Li ;; LOOP HERE 
3816 025162 012706 001100 MOV @STACK, SP 
17 025166 010537 001120 PIOT1: MOV $GDADR ; SAVE 
3818 025172 106427 MTPS ; RAISE CPU TO PIO LEVEL 
9 012737 025306 000104 HOV $34, PEVNT ; SET VECTOR. 
3821 025206 012701 000004 MOV $4,R1 ; SET A 1 SECOND KEEP-ALIVE TIMER. 
3822 025212 112715 000040 MOVB 440, (R5) ; CLEAR *IUS!IP”... 
382 025216 112715 000306 MOVB #306, (R35) ;...AND SET “IE!GCB!TCB’... 
4 D2 000240 240 5... TIMER -OFF i! 
3825 025224 132715 000001 1s: BITB #1, (R5) ; TIMER RUNNING (CIP=1) 7? 
025230 001011 BNE : ae ; BR IF SO. 
3827 025232 077 S08 RO,1$ 
3828 025234 012737 050326 044746 MOV @PI03,EMADR ss\N 
012737 045206 044752 MOV. #@NOSIG.ESADR ;; >> ERROR 141, TIMER DIDN’T START 
104141 ERROR+141 33/7 
3829 5 BR 7$ ; ABORT. 
3830 132715 000001 2$: BITB ; TIMER DONE (CIP=0) 2? 
3831 001423 BEQ ; BR IF SO. 
3832 077004 SOB 
33 025264 077105 SOB 
3834 025266 012737 050342 044746 MOV 53\\ 
025274 012787 045206 044752 MOV >; >> ERROR 142, TIMER NEVER STOPS. 
sa35 041 - ERROR 33// 
3836 000240 3$; NOP ; -- SHOULD HAVE BEEN MASKED. 
3837 025310 012737 050356 044746 MOV 3\N 








KS 
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012737 045206 044752 MOV #NOSIG,ESADR ;; >> ERROR 143, PIO INTERRUPT LEVEL INCORRECT. 
025324 104143 ERROR+143 3377 
2055 025326 000416 BR 6$ 
012737 025364 000104 4$:5$: MOV #6$ ,PEVNT : » CHANGE VECTOR.. 
3841 025336 106427 000000 MTPS #PRO ;..-LOWER THE CPU... 
3842 025342 000240 240 ;...AND LET INTERRUPT COME IN 
3843 0 012737 050416 044746 MOV #P106 ,EMADR s3\\ 
025352 012737 045206 044752 MOV #NOSIG, ESADR 3: >> ERROR 144, TIMER INTERRUPT NOT RECEIVED. 
025 104144 ERROR+144 35 
3844 025362 000401 1 
025 0 6$: CMP (SP)+,(SP)-+ ; INTERRUPT -- FIX THE STACK. 
3847 025366 012715 000040 7$: MOV #40,(R5) ; CLEAR “IUS!IP!GCB". 
3848 025372 012715 000160 MOV #160,(R5) ;...AND “IE” CTIMER OFF ). 
3849 025376 005725 TST (R5)+ $ BUMP TO NEXT TIMER CH/ STAT.. 
3850 025400 105237 050323 PITX ;...BUMP ASCII TOO.. 
3851 025404 123727 050323 0063 PITX,#'3 
sexe 025412 101665 BLOS PIOTi ;..-AND LOOP ‘TIL ALL 3 DONE. 
3854 025414 112777 000001 153706 MOVB #1,a$PI0 ; THEN, RESET THE CHIP... 
3855 025422 012737 002542 000104 MOV #DISMISS,PEVNT ;...PEVNT VECTOR... 
3856 ;...AND FALL THRU TO DATA TEST. 


SEE a a GAS RT 


L& 
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Til.2 DATA PORTS sa 
3858 5 | ERRREEEEEESEESEEESEESESEREE ES SOEEEEEEEEEESEEEESEEEEEEE EER EE ERED 


;#TEST 11.2 DATA PORTS 
5p FEEEEESEESESESESEEEEESEE EEE EEEEESSEEESEREEEEEEEEEEEEEEEEEEEEERERD 


025430 Til.2:: 
3859 ; 
PAv= 004 ; PORT A VECTOR... 
3861 000020 PACS= ;...CMD/STATUS. .. 
000032 PADB= 032 ;...DATA BUFFER... 
3863 000100 PAMS= 100 :...MODE... 
000102 PAHS= 102 ;...AND HANDSHAKE SPEC. 
3865 PBV= 006 ; PORT B VECTOR... 
000022 PBCS= 022 ;.. .CMD/STATUS. - 
3867 000034 PBDB= 034 “ee 
000120 PBMS= 120 ; 
000122 PBHS= 122 ;...AND HANDSHAKE SPEC. 
3870 14 PCDD= 014 ; PORT C DATA DIRECTION. . 
3871 36 PCDB= 036 3. BUFFER (HANDSHAKE BITS). 
3872 000140 XCVR= 140 ; ist REGISTER ABOVE THE CHIP HOLDS... 
3873 164377 AI.BO= <350sBIT8>!377 ;...XCVR CONTROL BITS TTL/ACIN)'BCOUT). 
3874 165400 AO.BI= <353sB1T8>!0~—s; DITTO TTL/ACOUT )!BCIN). 
3876 ; *&& DATA PORT(S) TEST REQUIRES EXTERNAL LOOP-BACK CONNECTOR «x 
3877 ; CHIP IS “RESET” ON ENTRY AND EXIT. 
3879 025430 013705 001330 P1000: MOV _— $PI0, RS ; GET B/SE ADDRESS. 
3880 025434 142715 000001 BICB #1,(R5) ; CLEAR “CHIP-RESET”. 
3881 025440 012765 000160 000004 MOV @PIOAV,PAV(RS) ; SET VECTORS. 
25446 012765 000164 MOV éPIOBV .PBV(R5) 
3883 025454 012737 026050 000160 MOV »PIOAV 
3884 025462 012737 026064 000164 MOV #81. PIOBV 
3885 025470 012737 050445 044742 PIOD1: MOV BA, ; SET ERROR PREFIX (B=>A). 
3886 025476 112765 000100 000100 MOVB #100, PAHS(RS) ; SET PORT A INPUT... 
112765 000102 MOVB  #000,PAHS(R5) ;... 
3888 025512 112765 000300 MOVB § _#300,PACS(RS) ;...INT ENABLED. 
3889 025520 112765 000200 000120 MOVB $200" PBSC R5) ; SET PORT B OUTPUT... 
3890 025526 112765 000122 MOVB § #000,PBHS(RS)  ;...INTERLOCKED HS.. 
3891 025534 112765 000300 MOVB #300. PBCS RS) ;... INT ENABLED. 
3892 025542 112765 MOVB #200 R5) ; SET OUTPUT “IP” TO PRIME THE LOOP. 
3893 925550 012765 164377 000140 MOV #AI.B0,XCVRCRS) ; SET XCVR CONTROL BITS. 
3894 56 0004 BR PIOD3 
3895 025560 012737 050464 044742 PIOD2: MOV @PORTAB,EMPRE ; CHANGE ERROR PREFIX (A=>B). 
3896 112765 000200 000100 MOVB  #200,PAMS(RS) |; CHANGE PORT A TO OUTPUT... 
3897 025574 112765 000200 MOVB #200.PACS(RS) ;...AND SET “IP*. 
112765 000100 000120 MOVB §§_ #100, PBMS(R5) =; CHANGE PORT B TO INPUT. 
$599 10 012765 165400 000140 ci MOV #A0.81,XCVRCRS) ; CHANGE XCVR CONTROL BITS. 
16 012737 025624 001110 MOV @. +6, $LPERR ;; LOOP HERE ON ERROR. 
3901 012706 001100 MOV @STACK, SP 
902 106427 000200 MIPS #PR4 ; RAISE CPU, 
390 112765 000377 000014 MOVB #377 R5) ; PORT C DIRECTION ALWAYS “IN”. 
3305 5 315760 908086 + a #16 Al, 
3906 : ooSone 1s: CLR (R4)- ; CLEAR SOME FREE SPACE. 
3907 077002 S08 RO,i$ 
3308 5 OrSTOS  ostoos MOY SEL TLO’RS | er POINTER => RS. 
’ 3 al e 
3910 005037 037576 CLR BYTES ; SEAR VTE COUNTERS. 
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Til.2 DATA 
3911 025672 001124 CLR $GDDAT 
3912 025676 005037 001126 CLR $BDDAT 
3913 025702 112715 000200 MOVB #200, (RS) ; SET “MIE*... 
3914 025706 112765 000224 000002 MOVB §§ #224.MCC(RS)  ;...AND ENABLE ALL THREE PORTS. 
3915 025714 116500 000032 MOVB  PADB(RS5).RO ; 22? DUMMY READ (FLUSH)... 
3916 025720 116500 000034 MOVB § PBDB(R5).RO ;...BOTH DB’S 22? 
3917 025724 106427 000000 MIPS § 4PRO ; LOWER CPU... 
3918 025730 CLR R2 ;...DATA SHOULD START TO FLOW. 
3919 025732 023727 037576 011022 2%: CMP BYTES, #<18.sBIT8>!i8. ; 18 BYTES TRANSFERRED ?? 
20 025740 001417 BEQ 3$ ; BR IF SO. 
3921 025742 077205 SOB R2,2$ ; AANG-AROUND. . . 
025744 40 240 ;...FOR A WHILE. 
3923 025746 113737 037576 001124 MOVB  BYTES,$GDDAT ; SENT... 
4 025754 113737 037577 001126 MOVB  BYTES+1,$BDDAT ;...VS RECEIVED. 
3925 025762 012737 050503 044746 MOV § #P107, EMADR 3\\ 
025770 012737 045556 044752 MOV #€F10.ESADR ;; >> ERROR 145, LOOP TIME-OUT, DATA XFER INCOMPLETE 
025776 104145 ERROR+145 347 
26 026000 000240 3$: NOP 
3927 026002 000240 NOP 
928 026004 105765 000100 TSTB = PAMSCRS) ; PORT A SENDING ?? 
3929 026010 100404 BMI 4$ : IF SO. 
3930 026012 105015 CLRB =s-« CR’) ; ELSE, CLEAR MAST 
3931 026014 105065 000002 CLRB MCCC(RS) ; ROL REGISTERS 
026020 000657 BR 0D2 ; GO ' 
3934 026022 112715 1 4s: MOVB #1, (RS) ; DONE, RESET THE CHIP... 
3935 026026 005065 000140 CLR (RS) ;...XCVR a 
3936 026032 012737 002542 000160 MOV @DISMISS,PIOAV ;...AND RESTORE VECTORS. 
3937 026040 013737 000160 000164 MOV ©TOAV,PIOBV 
3938 0 ENDPIO: 
an 000464 BR TST1i2 ;;...AND TAKE NEXT TEST. 
$ 
3940 ; PORT INTERRUPT HANDLER(S) 
G 
3942 .ENABL LSB 
943 026050 012700 000032 AI: MOV @PADB RO ; PORT A -- GET DATA BUFFER INDEX. 
3944 026054 105765 000100 TSTB  - PAMS(RS) ; CHECK DIRECTION. 
945 10040 BMI i$ ; OUTPUT 
3946 026062 000423 BR 34 ; INPUT 
3946 026064 012700 000034 BI: MOV ; PORT B -- DITTO. 
3949 70 105765 000120 TSTs 
950 74 10040 BHI : OUTPUT 
isee 026076 00041 ; INPUT 
; 026100 060500 1s: ADD ; OUTPUT -- SET DB POINTER 
3954 026102 123727 037576 000022 CMPB ; ANY BYTES LEFT 27 
3955 026110 001404 BEQ ; BR IF NOT. 
3956 026112 112310 MOVB ; ELSE, SEND NEXT BYTE 
3957 026114 10 37 037576 INCE :. « BURP ute, COUNT - 
Seee ; oe 
3959 026122 112760 000240 177766 2%: MOVB ; WHEN DONE, CLEAR “IP” 
3360 0261 7 BR ay ND RETURN 
3962 0261 3$: ADD ; INPUT -- SET DB POINTER 
026134 111014 MOVB ; STORE THE BYTE... 
3964 026136 105237 037577 INCB ;...AND BUMP THE COUNT. 


——— 
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CMPB (R4),FLT10-BUFRI(R4) ; COMPARE DATA XMTD/RCVD. 
BEQ 4$ ; BR IF IT’S RIGHT. 
MOV R4,$GDADR 
MOVB (R4), $BDDAT 
001124 MOVB FLT10-BUFR1(R4), $GDDAT 
044746 MOV #P108 , EMADR 33\\ 
044752 MOV #€F2,ESADR 7; >> ERROR 146, DATA INCORRECT 
ERROR+146 33// 
4$: NOP 
INC R4 ; BUMP RCVR POINTER. 
177766 5$ MOVB #140, -12(RO) ; COMMON EXIT, CLEAR "IUS”... 
RTI ;..-AND RETURN. 
-DSABL LSB 
PWRFAIL = O 


BY 
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T1i.2 DA WA PORTS -” os 
3978 ; MAC 19-NOV-85 
3979 + ~~ eee eC een pena es: 
3% 
5 OF 55SS E494 5645 EEO E4E4SSSSSESEESEEESEESEEEEEEEEEEEEEESEESEEEEEESEEEEEERSD 
026220 000004 4§112: SCOPE 
026222 032737 000340 177524 BIT #340,@@K2CSRC ;; IS THE ID SWITCH IN POSITIONS 0 OR 1? 
026230 001410 BEQ 30053$ 3; SKIP THIS TEST IF IT IS 
026232 012706 001100 MOV #STACK, SP 33 A CLEAN STACK. 
026236 012737 177777 002426 MOV $-1, TRAP4X ;; DISMISS BUS-ERRORS. 
026244 005037 044742 CLR EMPRE 3; CLEAR ERROR PREFIX. 
026250 000402 BR 30054$ 33 NEXT. 
026252 000137 027412 30053$: UMP TST13 :; BYPASS. 
026256 104415 026264 30054$: T$NAME, .+4 ;; PRINT TEST NUMBER AND NAME... 
026262 000411 BR 30055$ ;;...AND SKIP OVER THE ASCII. 
026264 040 = 121 "ASCIZ \ Q-BUS INTERRUPT\” 
— 026306 30055$: 
3981’ ; VERIFY THAT THE QIR CAN INTERRUPT THE ARBITER, AND THAT 
3982 ; THE POST-INTERRUPT PROCESS WORKS AS ADVERTISED. 
3984 026306 012737 026314 001110 MOV  @.46,$LPERR —s;; LOOP HERE ON ERROR. 
3986 ; FIRST, WRITE THE GIR AND SEE WHAT HAPPENS. 
3988 026314 106427 000240 3$: MIPS ~—s @PRS "RAISE CPU. 
3989 026320 005037 002426 CLR TRAP4X 
3990 026 013705 001314 MOV $CSR,RS ; CSR POINTER (TO SPEED THINGS UP). 
1 026 010537 001120 MOV RS, $GDADR ; CSR ADORESS. 
3992 026334 011537 001124 MOV (R5), $GDDAT ;...AND EXP’D STATUS. 
3993 026340 CLR RO ; TIMER, 200MS (MORE OR LESS). 
3994 026342 077001 S08 RO,. ; DELAY -- ENSURE TTY OUTPUT IS DONE. 
3995 026344 012777 000144 152744 MOV @QIRV,asQIR ; WRITE A VECTOR IN QIR<9:2>. 
5996 352 011537 001126 MOV CRS), $8DDAT ; GET CSR, QIREQ SHOULD BE SET. 
3998 ; NOW, BRQ4 SHOULDN'T GET POSTED UNTIL/UNLESS THE ENABLE IS SET. 
3 ; ON BIACK, REQUEST GETS CLEARED AND IF ENABLED POSTS A 
4001 ' LOCAL INTERRUPT THRU VECTOR 130 CAT PRI 4). 
4008 000130 BIACKV= TBIACK 
4004 640000 BRQ=  BIT14 
4005 020000 ACKEN= 81713 
4006 010000 BRQEN= BITi2 
4007 002000 BIEN= BIT10 
4008 026356 052737 040000 001124 érti: BIS ; SET EXPECTED STATUS. 
4010 026 032737 040000 001126 BIT 
4011 026372 901007 ;...AND BR IF REQUEST IS SET. 
4012 026374 012737 027157 044746 MOV 53NN 
026402 012737 045210 044752 MOV 33 >> ERROR 147, BREQ DIDN'T SET 
4013 Os6412 O42787 040000 001124 18 BIC “vr 
4014 052737 030000 001124 ~~ BIS , $GDDAT STATUS. 
4015 Osease 001352 CLR Ee ehe TRAP THROUGH 130 





. Fx8uC 
AND QIACK ENABLES (POST BROS)... 
| TOWER THE CPU... 
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See 
4031 026524 


4038 
4039 
4040 


4041 
4042 026572 
4043 026572 


seat 026602 





5 
005737 
42 


152476 
152472 
000131 
001352 


030000 
000001 
027257 
045206 


002000 
001126 
040000 


027210 
045210 
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; LOOK FOR ARBITER’S ‘Y SIGNIFYING IT HAS RESPONDED. FX8UC 
2$: STB a$ TKS ; WAIT FOR CHAR FROM ARBITER. FXBUC 
BPL ; LOOKING . FXBUC 
MOV a$TKB,R4 ; GET THE CHARACTER. FX9UC 
CMPB OR, 8 ; DID ARBITER SAY YES? sFXBUC 
BNE 2$ ; IF NO, KEEP LOOKING. sFXBUC 
CLR RO ; ARBITER SAYS IT RESPONDED ;FX8UC 
3$: TST @SBF LAG ; DID TRAP OCCUR YET? ;FXBUC 
BNE 4$ ; YES, CONTINUE. FXBUC 
SOB RO, 3$ ; KEEP LOOKING FOR A WHILE. FX8UC 
BIC : .(R5); DISABLE INTERRUPTS WHILE REPORTING. ;FX8UC 
001352 MOV #1, 28BFLAG ; AND SAY THEY'RE NOT EXPECTED EITHER. ;FX8UC 
044746 MOV #@14,EMADR 33\\ 
044752 MOV @NOSIG.ESADR  ;; >> ERROR 150, INT-ON-BIACK NOT RECEIVED 
ERROR+150 33/7 
077001 .WORD SO0B+1, RESET, SOB+1 LOCAL -RESET. 
52554 BIS CSR ; ENABLE TRAP ON @-BUS RESET sFX8UC 
4$: MOV (R5), $BDDAT ; GET FINAL STATUS. . 
001126 BIT , $BDDAT ;...REQUEST SHOULD BE GONE 
$ ; SO. 3FX8UC 
044746 $Q13,EMADR 33 
044752 MOV #€F2,ESADR 33 a ERROR 151, BREQ STILL SET, BIACK NOT RECEIVED 
ERROR+151 33// 
; 
; DO IT ONCE MORE USING THE ALTERNATE VECTOR. 
; ARBITER WILL RESPOND WITH A “RESET”, WHICH SHOULD 
; CAUSE A “BUS-INIT” AND LOCAL TRAP THRU VECTOR 24. 
S$: sFXBUC 
001206 CMPB = APTENV,$ENV ——; RUNNING IN APT MODE? sFX9UC 
BNE 55$ ; NO, sFX9UC 
TST $PASS ; IF APT AND NOT FIRST PASS . sFX9UC 
BNE QIEND THIS PART OF THE TEST. sFX9UC 
152522 BIT $<168BIT4>, asTCID 5 ; GF ID 0 OR 1.. 
BEQ ...JUST GET OUT. 
177540 55¢: 81S #8706. K2CSRU + Wan B-INIT TRAP. 
BIC @<BRQEN! ACKEN> (RS) . DISABLE IACK, . . sssstss 
MTPS = @PR7 ; TRAP 24 SHOULD BE NON-MASKABLE 
JSR PC MMU ;INIT MMU STERS 
177776 BIS #140000, a8PSW  ;SET USER MODE 
MOV #140000 ;SET UP USER STACK 
MOV @6404, -(SP) 
000404 NOY osasT peaoa” 
90406 aac 
000406 MOV @RSTRAP,.B406 ss; 
HAS AGP oy 
e 
CLR @ORFLAG ; SAY “EXPECTING A TRAR THROUGH 24.”  ;FXBJC 
152370 Moy @QIRV1,a$QIR ; POST Q-BUS REQUEST. 
177530 BIT @B1T14,@0K2CSRD ; IS INTERRUPT POSTED? 
044746 MOV #DPR11,EMADR s3\\ 
044 MOV e 33 >> EXROR 152, QIR NOT WRITTEN 
ERROR+152 33// 
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172356 
177572 


15$: BIS @<BIT12:BIEN>, (RS) ;ALLOW Q@BUS INTERRUPT 
WAIT FOR ARBITER TO SEND A ‘Y SIGNIFYING IT HAS RESPONDED. FXBUC 
és: STB a$ TKS ; WAIT FOR CHAR FROM ARBITER. sFXBUC 
BPL 6$ ; KEEP LOOKING. sFXBUC 
MOV a$TKB,RS ; GET THE CHARACTER. sFXOUC 
CMPB sé @’Y ; IS IT A YES? sFXBUC 
BNE 63 ; IF NOT, KEEP LOOKING sFX8UC 
HOV #177600, BOKIPART: 
MOV (SP)+, a8406 ;RESTORE VECTORS 
MOV (SP)+,a8404 2 
BIC #1 PSW ;SET KERNAL MODE 
CLR RO ; ARBITER HAS EXECUTED A BUS-RESET FX8UC 
7$: TST @eRFLAG ; DID TRAP OCCUR YET? sFXBUC 
BNE QTEND ; YES, CONTINUE. sFXBJUC 
SOB RO,7$ ; KEEP LOOKING FOR A WHILE. ;FX8UC 
BIC #2000,88177530 ; DISABLE TRAPS WHILE REPORTING ERROR. .FXBUC 
MOV $1, 2@RFLAG ; AND SAY THEY'RE NOT EXPECTED EITHER. ;FX8UC 
MOV  #@15,EMADR 33\\ 
MOV #NOSIG,ESADR  ;; >> ERROR 153, BRESET TRAP THRU 24 DIDN'T HAPPEN 
ERROR+153 3/ 
.WORD SOB+1, RESET, S081 
BIS “asCsR But ENABLE TRA TRAP’ on a BUS RESET. sFX8UC 
QIEND: BIC #81106, @8K2CSRU 
MOV ,asCSR ;..-AND CSR’S. sFXBUC 
BR TSTi3 ;;AND THAT'S ALL THERE IS TO IT. 
QIi:  .ASCIZ /BUS TIME-OUT AT QIR / 
QI2:  .ASCIZ /Q-BUS REQUEST DIDN'T. SET/ 
QI3:  .ASCIZ /*BIACK" NOT RECEIVED (Q-REQ STILL SET)/ 
QI4:  .ASCIZ /INTERRUPT (ON "BIACK") NOT RECEIVED/ 
QIs: -ASCIZ /TRAP THRU 24 NOT RECEIVED ON “BRESET“/ 
DPRi1: .ASCIZ /QIR NOT URTTTENS 
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4102 


02 
027472 
027474 
027522 
4103 
027522 
4105 
4106 
4107 
4108 027522 
027522 
4109 027530 
4110 027536 


602 
4122 027610 


4128 ores 





012737 
012737 
012777 


12737 


151642 


032124 
027474 


040 
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177524 


002426 
151470 


124 


001110 
001124 
151550 


001126 
044746 
044752 


044746 
044752 


5 {EEREREEERESSSESESAEEESEEESSSEEEESEO406004000564000004040000000002 
s*TEST 13 TWO PORT REGISTERS 

jj RHREERESSESESESSESESESESESEEESSSERESESEEEEEOEEO0045404404000000008 
TST13: SCOPE 


$340,9K2CSRC ;; IS THE ID SWITCH IN POSITIONS 0 OR 1? 
BEQ 30056$ 3; SKIP THIS TEST IF IT IS 
MOV SSTACK, SP 3; SET A CLEAN STACK. 
MOV #-1, TRAP4X 3; DISMISS BUS- , 
CLR EMPRE ;; CLEAR ERROR PREFIX. 
BIT $8118, aSWR ; FORCED ENTRY SELECTED 2? 
BNE 30057$ ;; BR IF SO. 
TST a$DPR ;; CHECK FOR VALID $DPR. 
BVC 30057$ ;; SKIP NEXT IF OK 
TST14 ;; BYPASS. 


30056$: JMP 
30057$: TSNAME, .+4 
BR 30058$ 
-ASCIZ \ TWO PORT REGISTERS\ 
.EVEN 
30058$ : 
Fe negee o eeeoeememene enna 
i 


;*TES 1 

g * 

Ya eee aes art och ee maine omental 
13.1:: 


NUMBER AND NAME. 
SKIP OVER THE ASCII. 


; FIRST, DISABLE THE DPR AND ee WRITE/READ 


; FROM THE LOCAL (II) S 
TDPR1: 
MOV #.+6, $LPERR ;; LOOP HERE ON ERROR. 
MOV #-1, $GDDAT ; SET EXPECTED DATA. 
MOV #2000, a$C ; EVERYTHING OFF BUT TRAP ON Q-BUS sFXBUC 
; RESET. sFX8JC 
MOV $DPR,RO ; DPR BASE ADDRESS (LOCAL). 
MOV #15. .R1 | 
i$: CMPB 0 séRO, 62 ; ODT'S STATUS REG ?? 
BNE 2$ ; SKIP s 
TST (RO)+ ; YES, DON'T WRITE IT. 
2$: MOV yo The ; , 
MOV (RO)+,$BDDAT  ;...AND READ IT BACK. 
CMP $GDDAT , $BDDAT 
3, s0PR2 EMADR A\ 
33 
MOV €F2,ESADR 3; >> ERROR 154, LOCAL DPR WRITE-READ ERROR 
34 sop at is eit 
CLR TRAP4X ; RESET TRAPPER. . 
ai BR TDPR2 ...AND PROCEED. 
MOV  #0PR1, EMADR s3\\ 
MOV  #LAI6.ESADR 3; >> ERROR 155, BUS-ERROR ON DPR ADDRESS 
ERROR+155 33 
JMP DPREND ; ABORT TEST. 


a 


ry 
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16 
4148 027720 
4149 027724 
4150 027726 
4151 027732 
4152 027740 
ata: 027742 


154 46 
4155 027750 


2 
4177 030114 
4178 030122 
4179 


000403 
042737 


151452 


177774 
050742 


031156 
045206 


177617 
001322 
000200 


015400 


000010 
002000 
002000 
061022 
000020 
031722 
001120 
046566 
045222 
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044746 
044752 


151400 


177522 
027750 
027750 


044746 
044752 


001120 


044746 
044752 


001120 


; NOW THE DPR IS FULL OF -1’'S CEXCEPT FOR WORD 1). 


READ ALL WORDS FROM THE Q@-BUS SIDE USING THE DMA ENGINE. 
: EXPECT ALL ADDRESSES TO RESPOND (NO EOP), BUT DATA = 0's. 
LO@B= 1 ; 1 ; LOW RANGE Q@-BUS BASE ADDRESS (ID 0-7). 
HIQB= 175400 ; 177400 ; D (ID 8-F). 
LOZHI= HIQB-L ; OFFSET TO CHANGE FROM LO TO HI RANGE. 
TDPR2: MOV a$TCID,RO ; GET CPU ID NUM (CSRC<7:4>). 
;TEST THAT THE IOP ID DETERMINED BY THE ARBITER MATCHES THE ACTUAL 
;SETTING OF THE ID SUTTCH REPRESENTED IN K2CSRC <7-4> 
ASH #-4,R1 : 
CMP R1,I0P.ID ; IOP ID NUMBER SHOULD = SWITCH SETTING 
MOV @NOSIG,ESADR $i »> ERROR 156, IOP ID NUMBER DOES NOT MATCH ARBITER CALCULA 
ERROR+ 
10$: BIC #tC160,RO vie STRIPPED. TO <6:4> = NUM&l6.. 
ASL RO ;...TIMES 2 = NUM«* 
ADD $DPRQ,RO ;...PLUS BASE = Q-BUS DPR ADDRESS. 
BIT @B1T7,a$TCID ; ID >= 8. ?? 
BEQ i$ ; NO. 
ADD $LO2HI ,RO ; YES, ADJUST TO HIGH RANGE. 
1$ HOV RO, (PC )+ ; SAVE QOPR ADDRESS... 
BIT #B1T03, 96K 2CSRB ie The HI RANGE JUMPER INSTALLED? 
BIS #2000, QDPR ;HI RANGE JUMPER INSTALLED 
S$: BIC $2000, QDPR ;HI RANGE JUMPER NOT INSTALLED 
A$: MOV #BUFR1,R1 ; SET LOCAL ADDRESS. . 
MOV »R2 ;...AND WORD COUNT. 
CALL  RQIO ; READ FROM Q-BUS SIDE VIA DMA. 
BVC i$ ; BR IF NO TIME-OUT "EOP". 
MOV RO, $GDADR ; BAD @ ADDRESS (+2). 
MOV  #0PR3, EMADR NN 
MOV @LA16M2,ESADR ;; >> ERROR 157, BUS ERROR ON Q-BUS DPR READ 
ERROR+157 33/7 
BR TIPV1 
1$: MOV @BUFR1,RO 
HOV #16, fi SRC ADDRESS(ES) 
H eee 
CLR $GDDAT . HAVE RETURNED ZERO 
2$; MOV RO ; OST ADDRESS(ES)... 
MOV (RO)+,$BDDAT ;...AND WHAT WE REALLY GOT 
Of + EMADR ak - i 
MOV  €F6,ESADR se >> ERROR 160, NON-ZERO DATA ON Q-BUS READ 
ERROR+160 33// 
« 
} 5 RERRRERRREREES EREREEEREEEEE EES EEEEEEEESOOOEEES48OOSOEEE EEE EERE 
;#TEST 13.2 Q-BUS WRITE 
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113.2 Q-BUS WRITE 
33 5OO9606060604660606606046066040660644046666606660462660 6066666646664 2646004 644464024088 
a 030124 113.25: 
4181 ; SO FAR -- NOW WRITE ALL FROM THE Q-BUS SIDE 
4182 ; 1ST WRITE SHOULD FORCE A NON-MASKABLE RESTART TRAP (COMMAND INT) 
4183 ; APPEAR NON-EXISTANT (EOP) 
4185 030124 TIPV1 
30124 01 030132 001110 MOV #.+6, $LPERR ;; LOOP HERE ON ERROR. 
1 132 012737 031126 120 MOV $IR4,DPRV4 ; LEVEL 5 INTS SHOULD... 
4187 030140 7 031134 000124 MOV IR8.DPRV8 ;...NOT HAPPEN... 
188 030146 012737 031142 000134 MOV #IR12,DPRV12. sé; ...... (YET)... 
4189 030154 106427 MIPS = @PR7 ; INTERRUPT SHOULD 
4190 030160 004737 001462 JSR MMU ;INIT MMU REGISTERS 
191 030164 052737 140000 177776 BIS #140000, a8PSW  ;SET MODE 
4192 030172 012706 140000 MOV #140000,R6 ;SET UP USER STACK 
4193 030176 013746 MOV a#404, -(SP) 
41 202 013746 000406 MOV @#406, -(SP) 
4195 030206 012737 000137 000404 MOV #137, 02404 ; 
4196 030214 012737 002544 000406 MOV @NMITRP 28406; 
4197 030222 012737 177654 172356 MOV #177654, @@KIPAR7;WILL CAUSE NON-MASKABLE INTERRUPT a TO POINT 
4198 ;..T0 PHYSICAL ADDRESS 404 RATHER T HAN 1773004 
4199 ;...WHICH IS THE FIRMWARE RESTART ADDRESS. GETS 
4200 ;.... AROUND THE NEED TO HAVE FIRMWARE TO DO TEST 
4201 030230 052737 000001 177572 BIS $1, BEMMRO ; TURN ON MMU 
4202 030236 013700 027750 RO ; SET GLOBAL DPR ADDRESS... 
4203 030242 012701 061022 MOV SBUFR1, RI ;...LOCAL ADDRESS... 
4204 030246 012702 000001 MOV #1,R2 ;.. AND COUNT . 
030252 012711 000040 MOV #40,(R1) ; SET 1ST WORD = "NOP" COMMAND. 
4206 030256 010037 001120 MOV RO 
030262 177540 BIS #81106 @eK2CSRU ; ARM INTERRUPTS 
420% 030270 005037 001346 CLR TPROTR ;SAY EXPECTING RESET TRAP 
4209 030874 004737 031732 CALL waro ; WRITE DPR WORD 
4210 0 102007 BVC i$ ;...SHOULD NOT HAVE ABORTED. 
i 030 012737 046774 044746 MOV 8DPR7, EMADR ENN 
030310 012737 045230 044752 MOV  #LA16,ESADR 33 >> ERROR 161, TIME-OUT ON WRITE TO DPRO 
030316 104161 ERROR:+! ; ie 
4212 030 005737 001346 1$: TST @éTPROTR ;DID TRAP OCCUR? 
4213 030324 001007 BNE 
4214 030326 11$: 


030326 012737 046700 044746 33\ 
030334 fr FH 045206 044752 33 ie ERROR 162, COMMAND INTERRUPT DOESN'T WORK 


030342 162 
4215 030344 012737 177600 172356 2%: MOV #177600, @KIPAR7 i 
aSHMRO ; 


a 


S 
5 RE 
' 


4216 080852 042787 000001 177572 BIC —«@ 
4217 030360 012726 000406 MOV #406, (SP)+ 
4218 030364 012726 000404 MOV 404° (SP). 
4219 030370 012737 000340 177776 MOV #340. a8PSW SET KERNEL MODE 
4220 030376 106427 000000 MIPS PRO ; LOWER GPU. 
4221 030402 00 CLR = R4 ; CLEAR INT RECEIVED FLAG. 
4222 030404 012703 000017 MOV —s- #15... R3 i SET LOOP FOR 15 MORE WRITES. 
4223 080410 012702 000001 4s: MOV —s-« #1. RD ; ONE AT AT 
4224 030414 010037 001120 MOV _—sw RO, $GDADR 

004 031732 CALL waQio ; WRITE NEXT FROM Q-BUS SIDE 
4559 6 Bis7sy 086771 044746 OMoy«oaopre.enmon UK - 

, s3\ 
030484 012787 045230 044752 MOV  LAI6.ESADR i ERROR 163, @-BUS DPR WRITE DIDN'T TIME-OUT 
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030442 
4228 030444 
& 030446 
4230 030450 
4231 Onoaze 


fo 
ui 
ui 





os 2s de in In 

wOo@ 
He 
RVSOEAEO 


oooocoocoe 


SESRRRISRTS 
33 


si 
sete 
© 


& 
~ 
~~ 
oo 





104163 
0773 


012777 
013700 
062700 
012701 
012703 
010037 


005004 
012702 
004737 
102413 


047042 
045206 


044746 
044752 


150616 


044746 
044752 


044746 
044752 


047112 


047112 


047112 


044746 
044752 
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ERROR+163 33/7 
S$: SOB R3,4$ 
TST R4 ; NONE SHOULD HAVE INTERRUPTED. 
BEQ TIPV2 
SDPR8, 53\\ 
MOV #NOSIG.ESADR =;:; »> ERROR 164, INT HAPPENED WITH DPR DISABLED 
ERROR+164 33 
; NOW THE DPR, AND WRITE WORDS 1-15 AGAIN 
; EXPECT EOP AT WORDS 1, 5S, AND 9, 
; AND S AT WORDS 4, 8, AND 12 
TIPV2: MOV #2170, a$CSR ; SET ALL ENABLES INC. Q-BUS RESET TRAP. ;FX8UC 
MOV RO ; SET Q@ ADDRESS. . 
ADD ,RO ;...FOR DPR1... 
MOV #BUFR1+2,R1 ;...AND LOCAL ADDPEss. 
MOV #B1T1,R3 ; BIT = CURRENT UNDER TEST 
1$: MOV RO, $ ; SET DPR ADDR FOR 
CLR R4 ; CLEAR “INT RECVD" FLAG 
MOV #1,R2 ; SET WC... 
CALL § wWQIO ;...AND WRITE A WORD. 
BVS 3$ ; BR IF WRITE TIMED-OUT (EOP). 
2$: BIT R3,@<BITL!BITS!BIT9> ; TIME-OUT EXPECTED ?? 
BEQ 4$ ; NO, PROCEED. 
MOV #DPR6,EMADR s\N\ 
MOV  #LA16,ESADR ;; >> ERROR 165, WRITE TO DPR DIDN'T TIME-OUT (NO EOP) 
aia? oan 33// 
3$: BIT R3,#<BITL!BITS!BIT9> ; TIMED-OUT EXPECTED 77 
BNE 4$ ; YES, SO FAR SO GOOD. 
MOV #DPR7 , EMADR 33\\ 
MOV #LAI6,ESADR 3; >> ERROR 166, WRITE TO DPR TIMED-OUT (EOP) 
ERROR+166 33/7 
4$: BIT R3,4B1T4 ; INTERRUPT 4 EXPECTED ?? 
Hoy br0a,0eRo-3 YES 
* + : gee 
CMP R4,DPRI+3 ree 2? 
BNE 66$ ; NOPE. 
S$: BIT R3, 68178 ; INTERRUPT 8 EXPECTED 77 
‘or prow.orne.s : Yes 
ae H : ese 
CMP R4, DPR9+3 ;...RECEIVED 27 
BNE 66$ ; NOPE. 
63: BIT R3, @B1T12 ; INTERRUPT 12 EXPECTED 77 
BEQ 7$ 3 
MOV $12, +3 ; 
CMP R4, 3 ts 
BEQ 7$ ; 
cof: mvs euro. Erwan AA 
33 
MOV #NOSIG.ESADR ;; >> ERROR 167, DPRXX INTERRUPT NOT RECEIVED 
ERROR+167 33// 
7$: ASL R3 : SHOT UP 10 NEXT WORD (BIT)... 
BNE 1$ ..AND LOOP ‘TIL ALL WORDS DONE. 
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4276 ; FINALLY, USE THE QIR FACILITY AND VERIFY THAT THE 
4277 ; ARBITER PROCESSOR CAN INDEED WRITE INTO THE DPR. 
4279 030720 013700 001320 TIPV3: MOV $DPR,RO 
4280 030724 0 000036 MOV 36(RO).41 ; SAVE DPR<15>. 
281 030 042777 010000 150356 BIC $817T12.a$C2R =; DISABLE @ BUS INTERRUPT 

030 012777 000154 150352 MOV 2,a$ ; Q- 7... 
4283 030744 032777 150342 BIT #81T14,a$CSR ; WAS QIR WRITTEN? 

030 000240 NOP ; DELAY A SKOSH 
4285 030754 4.910 BNE $ 
4286 030756 012757 027371 044746 MOV #@DPR11.EMADR = ;;\\ 

030764 012737 044752 MOV #NOSIG.ESADR ;; >> ERROR 170, QIR NOT WRITTEN 

030772 104170 ERROR+170 33/7 
4287 030774 000443 BR 10$ 
4288 030776 052777 010000 150310 11$: 81S #B1T12,a$CSR § _;ENABLE @ BUS INTERRUPT 

; WAIT FOR ARBITER TO SEND A 'Y SIGNIFYING IT HAS RESPONDED. sFxXBuUC 

4290 031004 105777 150134 is: TSTB Ss aS TKS ; WAIT FOR CHAR FROM ARBITER. sFXBUC 
4291 031010 100375 BPL i$ ; sFX8UC 
4292 031012 017703 150130 MOV a$TKB,R3 ; GET THE CHARACTER. sFX9UC 
4293 031016 120327 000131 3.8 ; IS IT A YES? :FX8UC 

031022 001370 ; IF NOT, KEEP LOOKING. sFXBUC 
4296 031024 0 000036 ;...ARBITER SHOULD COMPLIMENT DPR<15>. ;FX8UC 
4297 031030 001012 ; BR IF IT DID. 
4298 031032 042777 O1 150254 ; DISABLE REQUEST. sFX8UC 
4299 031040 012737 047144 044746 33\N\ 

031046 012737 045 044752 33; >> ERROR 171, ARBITER WRITE TO DPR<15> FAILS 
4300 031054 10417 $3 
4301 031056 012777 002000 150230 2%: MOV #2000, @$CSR ; ALL DONE, CLEAR STATUS BUT ALLOW ;FXBUC 
4302 ; TRAP ON OON 8-806 RE RESET. sFXBJC 
4303 031064 013700 001320 MOV $DPR, 
4304 031070 012701 000016 MOV #14. ,R1 
4305 031074 CLR (RO) ; CLEAR DPRO... 
4306 031076 005720 TST (RO)+ ;...SKIP DPRI... 
4307 031100 3$; CLR (RO)+ ;...AND CLEAR THE REST. 
4308 031102 077102 SOB R1,3$ 
4310 031104 012700 10$: MOV #DISMISS ,RO 
4311 031110 010037 000120 MOV RO, DPRV4 ;...RESTORE VECTORS... 
431¢ 031114 0610037 0001 MOV RO, DPRV8 
4313 031120 010037 0001 MOV RO, DPRV12 
4314 031124 BR ENDIRQ 
4316 031126 012704 22060 IR4: MOV $"04,R4 ; DPRV4 INTERRUPT RECEIVED. 
4317 031132 SKP2 
4318 031134 012704 034060 IR8: MOV #"08,R4 ; DITTO DPRVS. 
4330 O81142 012704 031061 IRi2 ov #"12,R4 DITTO DPRV 

# 3 ; 

a32i Oeiies 777 7 150140 art $7, a$CSR ; wee TEMP, ENSURE REQ’S ARE CLEAR. 
anes 031156 lll 117 120 IDERR: .ASCIZ /IOP ID ERROR/ 
4324 EVEN 
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4326 031174 
4327 


031174 
328 
4329 
4330 
4331 
4332 031174 
4333 031202 
34 031206 
4335 031212 
rit 220 


RA 
eee 


Beh boa bbe heb b> 
SEES 
Bebb eneepnnennnare 
NESERSRKASSESONS D 


S355 
PMO 


4377 031404 
4378 031406 
4379 031412 





012737 


001124 
001126 


001124 
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175012 


ENDIRG: 


jj REEEEERESESESESESESSEEEEESESEEEEEEESE ES £000400000046000000000008 
ACCESS TPRS FROM L 


;*TEST 13.3 


OCAL SIDES SIMULTANEOUSLY 


5 FESSSESSSESERSEESSARES SEES SSESASSESEKESEESEEEESEEEEESDES £4E444ESESEEEKES 


tis See 


NOW TEST THAT TPRS CAN BE ACCESSED FROM THE LOCAL SIDE WHEN THERE 
:IS HEAVY @-BUS ACTIVITY TO THEM. 


Ses SSesses | 


98177766 


;INIT TPRO WITH -1 

+ SAVE TRAP VECTOR 

:LOAD NEW VECTOR 

;POINT TO ARBITER ROUTINE IN TPRS 
;G0 TO ARBITER DISPATCH ROUTINE 

;.. TPRS WILL BE ENABLED ON RETURN 


;GIVE THE ARSITER TIME TO SET UP 
;CLEAR THE CPU ERROR REGISTER 


STEST THE TPRS WHILE THE ARBITER IS READING TPRO IN A TIGHT LOOP 





MOV 
MOV 
MOV 
i$: MOV 
MOV 
CMP 
BNE 
MOV 
2s: CMP 
BNE 
CMP 
BNE 
CMP 
BNE 
CMP 
BEQ 
MOV 
MOV 
MOV 
BR 
4$: MOV 
MOV 
11$: CLR 
NOP 
“OP 
TST 
Ea 
12$: CLR 
MOV 
BR 
3$: MOV 
BR 


#125252 ,R3 
#52525 ,.R2 


R3,(R4)- 
aTPRi5=2,R4 
RE.CRESe 
R2,(R4)+ 
#TPR15+2,R4 
$125252,R2 
ae 


#125252 ,R2 
mas 





;INIT R3 WiiH DATA 

;INIT R2 WITH DATA 

;POINT TO FIRST TPR 

;WRITE CHECKER BOARD TC iPR ARRAY 


;DID WE RUN OUT OF TPRS YET? 


;POINT TO TPROO 
;CHECK DATA 


;BRANCH IF 

;CHECK DATA 

;BRANCH IF BAD 

;DID WE CHECK ALL THE TPRS? 
;DID WE TRY BOTH PATTERNS? 


;sRESET POINTER 
;CHANGE PATTERN 
; “ 


;SET UP LOOP 
;CLEAR TPROO TO SIGNAL ARBITER THAT 


;I1S IT CLEAR 
; 
; 


s;ERROR CALL DATA 
;ACTUAL DATA 


s;ERROR CALL DATA 


— 
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713.3 ACCESS TPRS FROM QBUS AND LOCAL SIDES SIMULTANEOUSLY 
4380 031414 010337 001124 S$: MOV R3,@6$GDDAT 
4381 031420 014437 001126 6$: MOV -(R4), a8$BDDAT sGET BAD DATA 
4382 031424 010437 001122 13$: MOV $BDADR . AND FAILING TPR ADDRESS 
4383 031430 012737 554 044746 MOV $ #TPRDER.EMADR ;:;\\ 
031436 0 045210 044752 MOV #€F2,ESADR ;; >> ERROR 172, BAD DATA IN TPRS 
031 104172 ERROR+172 +e 
4384 031446 BR 10$ 0K! 
4366 ;COMES HERE IF WE SHOULD GET A TIME-OUT WHILE TRYING TO ACCESS TPRS 
4388 031450 022626 8$: CMP (SP)+,(SP)+ ;FIX STACK 
4389 031452 013746 000130 MOV 130, -(SP) ;SAVE VECTOR 
4390 031456 012737 031524 000130 MOV #7$ , 98130 ; 
4391 031464 012702 177530 MOV »R2 ; 
4392 031470 052712 000100 BIS #81706, (R2) ;ENABLE TPRS 
4393 031474 042712 010000 BIC #81712, (R2) ;DON'T ALLOW BUS INTERRUPTS 
4394 031 012737 000110 177532 MOV #110,a8K2QIR §;TELL ARBITER TO COOL IT. 
4395 031506 032712 040000 14$: BIT #B1T14,(R2) ;DID THE QIR GET WRITTEN? 
4396 031512 001775 BEQ 14 
4397 031514 052712 030000 BIS #<BIT13!BIT12>,(R2) ;ENABLE Q-BUS INTERRUPT & IACK INTERRUPT 
031 000234 SPL 4 ;LOWER PRIORITY LEVEL 
4399 031522 WAIT 
4400 031524 022626 7$: CMP (SP)+,(SP)+ sFIX STACK 
1 031 042712 030070 BIC #30070, (R2) ; TURN OFF MASKABLE INTERRUPTS 
4402 031532 012637 000130 MOV +, a1 ‘RESTORE VECTOR 
4403 031536 010437 001122 MOV R4, $BDADR :SAVE ADDRESS OF TPR CAUSING TIME-OUT 
031542 012737 031710 044746 MOV #TPRTO,EMADR ss ; $\\ 
031550 012737 031 044752 STPRNXM.ESADR _;; ne ERROR 173, TIME-OUT ON SIMULTANEOUS ACCESS TO TPRS 
031556 104173 °173 
4405 031560 005037 177766 CLR a@177766 ‘i/EmR CPU ERROR REGISTER 
3 
7 031 012637 000006 10$: MOV (SP + 986 ;RESTORE STACK 
4408 031570 012637 000004 MOV (SP)+, 084 ; 
4409 031574 137 032122 JMP 
4411 031600 TPRNXM: ROUTINE FOR TPR NXM 
4412 931600 042737 175000 001122 gIc #175000,$BDADR ;STRIP OFF UN-NEEDED BITS 
13 031606 006237 001122 ASR $BD/ ;SHIFT IT OVER ONE 
4414 031612 013746 001122 MOV $BDADR,-(SP) —; 
4415 031616 104405 T 
16 031 104401 031626 TYPE 1$ 
4417 031624 000207 RTS 
4418 031626 040 124 111 18: .ASCIZ / TIMED-OUT WHILE ARBITER WAS ACCESSING FROM Q-BUS/ 
4419 031710 114 117 103 TPRTO: -ASCIZ /LOCAL TPR/ 
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4422 
4423 
4424 
4425 
4426 
4427 

4428 031722 
4429 03% 


4434 

4435 031754 
4436 031756 
4437 031764 
4438 031772 
4439 031776 
4440 032004 


001540 


MACRO YOS. 


1$: 


gasagaregavacsacaasany 





02 Turedey 03- 
SIDES SIMUL TANE 


BIC 


De 


aa 14:11 Page 114 


SUBROUTINE S ee ES OS 1/0 Oe ere Ne OF OGRE. 
ON CALL RO yp Be ye a LOCAL Re = 


THEY CONT 
IF EOP TERMINATION, “V" BIT IS SET. 


WORD COUNT. 
TED (TERMINAL) VALUES. 


#B1T4,CM+2 ; READ -- CLEAR “FLIP” BIT. 
#B1T4,CM+2 ; WRITE -- SET “FLIP” BIT. 
RO,QA+2 ; SET Q-BUS 1/0 ADDRESS. 
R1,LA+2 ; SET LOCAL ADDRESS. 
$DMA,RS r 

R5 


MODE = VI!WAIT!CPINTLV!ENABLE. 
R5) ; CLEAR INTERRUPT ENABLES. 
#QI0C ,CHAIL(RS) ; SET START CHAIN ADDRESS. 


#QI0CC,CHAIL(RS) ; SET CONTINUE CHAIN (DUMMY). 
#240,CMDRCRS) $; CHAIN-LOAD (OR RELOAD 0) REGISTERS. 
#102,CMDR(RS) ; SET SOFT-REQ (START/CONTINUE DMA)... 
#IP,STATICRS) = ;.. 

1$ 


#115, MMRCRS) ; 
#40!34 , CMDR( 


-AND WAIT FOR DONE/ABORT (IP=1). 


$40!14,CMDR(RS) ; OK, CLEAR IUS AND IP 
174412(R5),RO  ; GET FINAL @ ADDR (ARAL) 
174402(R5).R1 ;...LOCAL ADDR CARBL) 
174462(R5).R2  ;...AND WORD COUNT (OPK) 

BIT SEOP,STATI(R5) ; “EOP” TERMINATION ?? 

BEQ 2$ ; SKIP IF NOT.. 

SEV ;...OTHERWISE, SET "V" IN PSW. 

RETURN 

1602 ; LOAD CARA, COPK, AND CH MODE. 

177400, 0 ; Q-BUS 1/0 ABORESS (CARA) 

0, 0 ; LOCAL ADDRESS (CARB) 

0 ; WORD COUNT (COPK) 

10, 1340 ; CHAN MODE (1360 IF “FLIP” = 1) 

0 ; DUMMY RELOAD TO CLEAR “NAC” AND CONTINUE 

BR TST14 ;;NEXT TEST 
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4465 


032176 
032226 
4466 032226 
4467 032230 


4468 032236 
4473 032244 
4474 032252 


000234 
013737 


000340 
050754 
001100 
177777 
044742 


033174 
032176 


051506 
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002426 


172516 


177572 


177530 


000130 
000132 


175012 


jf ESREEEEEE ESSE ESESEEEEEE S$ S$E8O8E8000000040000040000000000080008 
o MEMORY MAPPING 


;#TEST 


gp FSSSESSESSSESESKAKSSSESSESRESSESRSESSESSESS SSS SEAS 6 + + $KEEOSEEEESEEEEEEEEEEEEDED 


i ae 
BEQ 30059$ 
TST MAXBLK 
BEQ 300554 
MOV SSTACK, SP 
MOV #-1, TRAP4X 
CLR EMPRE 
BR 30060$ 
30059$: UMP TST15 
30060$: T$NAME, .+4 
BR 30061$ 
ASCIZ 
“EVEN 
300615: 
SPL 3;NO 
MOV $INT134, 94134 
MOV 7, 9136 
my sear asia 
JSR PC, PROMLO 
MOV @SKIPARS RO 
ADD #200 ,RO 
ASH #-7,RO 
MOV $64. ,R1 
SUB RO,R1 
MOV R1.MAXWRT 
JSR PC. MMU 
MOV $20, 80172516 
MOV she 300 ot 
BIS $1, BAMMRO 
H 
;First we'l 
;the RAM 
ry 
CLR R2 
MOV = @LASTAD,R3 
CLR 
1$ ADD (R1)+,R2 
Crp R3,R1 
MOV R2, 90177666 
CLR 90175010 
CLR 
BIS 
MOV 
MOV 
MOV 
MOV 
SPL 
MOV 





+3 IS THE ID SWITCH IN POSITIONS © OR 1? 


ASS. _ 
33 ; PRINT TEST NUMBER 


; OF ALLOCATED SHARED MEMORY THAT 
; CAN BE WRITTEN WITHOUT CORRUPTING 
; THE CODE RUNNING IN THE K2 


;THIS IS THE MAX 

;GO INITIALIZE THE PORS AND PARS 
;DISABLE D SPACE 

sSAVE THE STACK POINTER 
ae D PARS 
; 


l establish a checksum for the diagnostic stuff resident in 


;R2 WILL HOLD SUM IGNORING CARRIES 


sSAVE CHECK SUM 


err ARBITER SIDE’ E WIL!. INDICATE WHICH 


AND INTERRUPTS FROM 134 
; SAVE SAVE. VECTOR ar 130 
; 
: 


;LOWER PRIORITY LEVEL 
;PUT MAX WRITE VALUE IN TPRS 
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4510 032436 
4511 032444 
4512 032452 
4513 032454 

462 


4522 032522 
4523 032524 
032532 
032540 
4524 032542 
4525 032550 
4526 032556 
4527 
4528 032560 
4529 032566 
4530 032570 
4531 032572 


000132 


004700 
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177532 
177530 


044746 
044752 


177530 


044746 
177530 
177530 


177530 


23: 


3$: 


43: 


6$: 


MOV #404 , BeKOQIR ;LET ARBITER KNOW WERE READY 
err Sn ss ;WAS VECTOR WRITTEN? 

MOV #QIRER , EMADR 3z\\ 

MOV — . >> ERROR 174, QIR ERROR 
BIS #<BIT13!BITi2>, asK2CSRD ey QIR TO INTERRUPT ARBITER 

..AND NOTIFY VIA 130 

WATT 
CMP (SP)+,(SP)+ #FAKE THE RTI 
MOV (SP)+,a#132 
MOV (SP )+,9#130 RESTORE VECTOR 
BIT #B1T14, ;WAS BIT 14 CLEARED BY IAK? 
BEQ 4$ 

MOV »EMADR 33\ 

MOV #NOSIG,ESADR $3 <A ERROR 175, QIR REQUEST WAS NOT CLEARED BY IAK 

ERROR+175 33// 
BIC #81T13,3#K2CSRD ;DISABLE IAK INTERRUPTS 
BIS 5 : E INTERRUPTS VIA 134 
WAIT ;AND WAIT FOR IT TO INTERRUPT 
; WITH START UP INFORMATION 
BIS #<BITO4!BITOS>,@#K2CSRD ;ENABLE INTERRUPT FROM 124 € 120. 
= “ ;WAIT FOR ARBITER TO SIGNAL IT IS DONE 
: .WORD O ; 


—— 
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4533 
4534 
4535 


4538 032574 
4539 032576 
4540 


032672 


010137 
072327 
060203 
005403 
042703 
050337 
052737 
000407 
012737 


os 
012737 


000002 
200 


000200 


000200 
177536 


177771 


177700 
177536 
000004 


032740 
045206 


000374 
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177540 


044746 
044752 


177532 


125 


INTERRUPT ROUTINE WILL ACCEPT VALUES PASSED IN TPRS 1 
;0F BLOCKS TO BE ALLOCATED TO SHARED MEMORY 
;O0F SHARED MEMORY RESPECTIVELY 


11€12 .THE NUMBER 
AND THE STARTING @ BUS ADDRESS 


;SAVE REGS 
a3 NUMBER OF BLOCKS TO SHARE 
: AND STARTING Q@ BUS 


ADDRESS 
sLOAD K2CSRF WITHSTARTING QBUS ADDR 
; AND R3 FOR LATER USE 


;SAVE NUMBER OF BLOCKS IN R2 
:CALCULATE ENDING ADDRESS 


;BUMP IT DOWN BY ONE BLOCK 
;LOAD ENDING @ BUS ADDRESS 


sSHIFT STARTING ADDRESS DOWN 
sADD NUMBER OF BLOCK 
;PUT NUMBER OF BLOCKS IN CSRH FORMAT 


; STRIP OFF UNNEEDED BITS 
;LOAD SHARED BLOCKS FIELD 


sENABLE SHARED MEMORY ONTO QBUS 


gs Ag ERROR 176, NUMBER OF BLOCKS FIELD IS INCORRECT 


;TELL ARBITER THAT SHARED MEMORY IS 
; ENABLED; GO WRITE IT. 


<CRLF>/NUMBER OF BLKS NOT VALID/ 


INT134: MOV RO, -CSP) 
MOV 1,-(CSP) 
MOV »-(SP) 
MOV R3,-CSP) 
MOV 175026 ,R0 
BEQ 
MOV 9#175030,R1 
MOV a 
MOV R1,R3S 
CMP RO, #64. 
se 
1$: ADD #200,R1 
SOB RO,1$ 
SUB $200,R1 
MOV R1,8@K2CSRH 
‘ 
;CALCULATE NUMBER OF BLOCKS FIELD FOR K2CSRH 
4 
ASH #-7,R3 
ADD R2,R3 
NEG 
BIC #1C77,R3 
BIS . 
3 
BIS #BIT02 , BK2CSRJ 
5¢ BR 6$ 
MOV #BLKER , EMADR 
MOV #NOSIG,ESADR 
176 | 
6$: MOV CSP )+,R3 
MOY CSP 3s Ri 
SP +,R1 
MOV (SP)+,RO 
MOV $374, 36K2QGIR 
RTI 
BLKER: .ASCIZ 
EVEN 
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114 SHARED MEMORY MAPPING - 
4657 032772 INT120: 
4658 032772 013706 177676 MOV ART, SRESTORE OLD STACK 
4659 032776 013701 175010 MOV @#175010‘R1 
033002 005701 1ST 1 ;IS ARBITER REPORTING AN ERROR? 
4661 023004 001424 BEQ ‘NO, MUST BE DONE TESTING 
03 005301 DEC OCR 
4663 033010 072127 000004 ASH 84,1 
4664 033014 000161 033020 UP s«1$CR1) 
4665 033020 1s: 
033020 012737 033076 044746 MOV @SHM1, s3\\ 
033026 012737 045206 044752 MOV @NOSIG.ESADR  ;; >> ERROR 177, SHARED MEMORY OUT OF ASSIGNED BOUNDRY 
033034 104177 ERROR+177 +P 
4666 033036 7 BR ENDSHM 
4667 033040 012737 033144 044746 Mov @SHM2, ie 
03 012737 045206 044752 MOV @NOSIG.ESADR  .. >> ERROR 200, SHARED MEMORY TIMED-OUT 
03 104200 ERROR+200 33// 
03 005037 177530 ENDSHM: CLR @@K2CSRD ‘ALL INTERRUPTS OFF 
4669 033062 042737 000004 177540 BIC  @B1T02, @eK2CSRu STURN OFF SHARED MEMORY 
4670 033070 005037 177572 CLR  @@MMRO ;MMU OFF 
4671 033074 S$: 
033074 000437 BR TST15 ; 
4672 033076 123 110 #101 SHM1:  .ASCIZ /SHARED MEMORY OUT OF ASSIGNED BOUNDRY/ 
4673 083146 = 123110101 SHA2; “ASCIZ © /SHARED MEMORY TIMED-OUT/ 


D10 
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T1i5 SHARED MEMORY LMGH 


4676 


033174 
033176 
3204 


Esee5 


SSeS85% 


B58 
Wr 


Re 
aS 
Ccoooocoeo 


AWWA 


SERS 
SS 





\ 


042737 


013737 


013700 
3 EIA 


00 
018737 
195790 


07202 
072227 
060200 


004737 
012737 
012737 
052737 
005000 
012702 
012701 
010022 


062700 
077104 


000340 
050754 
001100 
177777 
044742 


037176 
033246 


040 


177771 
177771 


177700 
177536 
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177524 


002426 


123 


177540 


177534 


177536 


177540 


172516 
172352 


177572 


og FSSSESESESESESSSESESSS ASSESSES ESSE SSEEESESESESEKRESEEEESEEEEESEEAREEE DEERE 
T 


5%T 

TST15: 
BIT 
BEQ 
TST 
BEQ 
MOV 
MOV 
CLR 
BR 

30062$: JMP 

30063$ : ae 


#340 , @#K2CSRC 
30062 $ 


30062$ 
ah 
EMPRE 


30063$ 
= 


30064 $ ; 
-ASCIZ \ SHARED MEMORY LMGH\ 


Y UNGH 
gg SFESSESSESEKSESASSESSSSSSSSSSSSASASESSESSASEEAEESEEEKESEERESEEEEEERES 
SCOPE 


PRINT TEST NUMBER AND NAME 


$: 
5p RERREAAEAAEEREEEEAEREREREASEAREEEREREEARERERERERAAREEERERERERAKE 
D T 


;*TEST 15.1 
6 ra 
§ p FEKSESEEKAAESESSEAAASESRSESEARAEEAKALKSEARAKARKAKEAKEAKERAKEEKSSERAREREEKAEEEES 


Ti5.1 


; THE SHARED MEMORY MAPPING TEST MUST PASS PRIOR TO RUNNING THIS TEST 


BIC 


#BITO2 , BHCOCSRJ 
SHARED MEMORY 


;DISABLE SHARED MEMORY 


LONG 
IN CSRH 


;ENABLE ONE BLOCK OF 
LOAD LOWEST @ BUS ADDRESS OF SHARED MEMORY 

MOV LOWLIM, 96177534 ;SET LOW LIMIT OF SHARED MEMORY 
;NOW FIGURE SHARED MEMORY" § HIGHEST Q@BUS ADDRESS LIMIT 

HOV LOWLIM,RO 

ADD ;MAKE SHARED MEMORY ONE BLOCK 

MOV ;LOAD HI LIMIT OF SHARED MEM 

SUB ;GET NUMBER OF BLOCKS 

ASH ; 

ASH ; 

ADD 

NEG 

BIC :CLEAR AWAY UN-NEEDED BITS 

BIS LOAD NUMBER OF F BLOCKS FIELD 

BIS ‘ENABLE SHARED MEMOR 


sINIT MEMORY TO BE SHARED FROM THE K2 (LOCAL) S 
sINCREMENTS @Y 2 STARTING WITH ZERO AT THE LOWES 


i$: 





R1,1$ 


WITH A PATTERN THA 
SHARED MEMORY LOCAT 


;INIT MMU PARS AND PORS 
ae BIT eae 





T 
ION 


NO D SPACE 
LAST 8KB BLOCK 


JDO A DTC CONTROLLED TRANSFER OF THE DATA IN SHARED MEMORY TO LOCAL MEMORY 


E10 


ee CA FUNCTIONAL TEST 


Ti5.1 DTC DMA 


4713 033440 
4714 
4715 033444 
4716 
4717 
4718 033450 
4719 
4720 


47 
4722 033454 
pals. 033460 


4799 033470 
rie 033474 


4737 033500 
4738 033504 
4739 033510 
4740 033512 
4741 033514 
033522 
033530 
4742 088552 
47 
4746 033534 


4748 033540 


4757 033576 


012705 
004737 


004737 
012705 


004737 
004737 


012705 
004737 


012702 
104201 
077112 


012705 
004737 


i 
077112 


034546 
034762 


034510 
034564 


034762 
034510 


034602 
034762 


120000 
130000 
036544 
045206 


034620 
034762 


120000 
140000 


036544 044746 
045206 044752 
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ACCESSES TO SHARED 


044746 
044752 


MOV #100$ .R5 :POINT TO TABLE THAT HOLDS DTC XFER 
JSR PC, SHMXFR G0 TO SUBROUT INE THAT LOADS PARAMETERS 
RETURN HERE AFTER SUCCESSFUL DTC XFER. ° 
JSR PC, 32$ ;CHECK RESULTS OF TRANSFER FROM SHARED 
;MEMORY TO LOCAL MEMOR 
;D0 A DTC CONTROLLED TRANSFER OF THE DATA IN SHARED MEMORY TO LOCAL MEMORY 
;S0 THAT THE PHYSICAL ADDRESSES ARE THE 
MOV #101$,R5 sPOINT TO TABLE THAT HOLDS DTC XFER 
JSR PC, SHMXFR ‘60 TO SUBROUTINE THAT LOADS PARAMETERS 
;INTO DTC 
JSR PC,32$ 


;CHECK RESULTS OF TRANSFER FROM SHARED 
;MEMORY TO LOCAL SHARED MEMORY. 
;D0 A DMA TRANSFER FROM QBUS SHARED MEMORY TO @BUS SHARED MEMORY 
MOV #102$,R5 ;POINT TO TABLE THAT HOLDS DTC XFER 
; PARAMETERS 
;GO TO SUBROUTINE THAT LOADS PARAMETERS 
;INTO DTC 


; CHECK RESULTS OF TRANSFER FROM SHARED MEMORY TO SHARED MEMORY; 
;CHECK 2048 WORDS OF DATA TRANSFERED. 


JSR PC, SHMXFR 


50s: MOV —«- #120000, R2 sPOINT TO LOWER HALF OF SHARED MEM 
MOV —«-$130000‘R3 ‘POINT TO UPPER HALF OF SHARED MEM 
Sis: OW (R2)+, CRS)» ;DATA SHOULD BE THE SAME IN EACH HALF 
MOV @LMGH3,EMADR ss; ; \\ 
MOV. PNOSIG,ESADR i; >> ERROR 201, DATA NOT TRANSFERED CORRECTLY 
+ : 
52: SOB. Ri1,51$ ;LOOP CONTROL 


;NOW DO A TRANSFER FROM SHARED MEMORY TO SHARED MEMORY HAVING THE DTC 
; TRANSFER DATA FROM THE LAST LOCATION IN MEMORY TO THE FIRST LOCATION ETC.. 
MOV #103$,R5 sPOINT TO TABLE THAT HOLDS DTC XFER 
;PARAMETERS 
JSR PC, SHMXFR : 


;sRETURN HERE TO CHECK TRANSFER FROM SHARED MEM TO SHARED MEM 


é5$: MOV _—s-@120000,R2 POINT TO BOTTOM OF SHARED MEMORY 
MOV —«-$140000'RS ‘POINT TO TOP OF SHARED MEMORY 
S6$: CMP (R2)+, -CR3) ; 
Oa KA 
MOV i >> ERROR 202, DATA NOT TRANSFERED CORRECTLY 
S7$: SOB - 








F10 


et CA FUNCTIONAL TEST 
715.1 DTC DMA ACCESSES TO 


4759 033600 
4760 


4777 033664 
4778 033672 


033740 
4784 033742 
4786 033746 
4787 


4788 033746 
4789 Oar ee 


4790 033754 
4791 033760 
rea | 033762 
4794 033766 
4795 033770 
rth 033774 
4797 034000 

034002 
4800 034006 
4801 034014 
4808 034020 
4804 


4805 034024 
4806 034030 
4807 


4808 

4809 034034 
4810 034034 
4811 034042 


000030 


012737 
012705 


004737 
012705 
004737 


012737 
012737 


000001 
020513 
045206 


034342 


145332 


001372 
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; THE I 0 COMMANDS. ONCE THAT HAS BEEN SHOWN IT WILL 
; EXECUTE A DMA TRANSFER OF 4 K WORDS FROM QBUS SHARED MEMORY TO 
THE KNOWN GOOD TOP THEN IT WILL TRANSFER 2K WORDS FROM THE KNOWN GOOD IOP BACK 
BIT #81112, aSUR ;IS THERE A KNOWN GOOD I0P? 
BEQ 65$ 
LOWLIM,RO 
JSR PC ,PDPDTC ;PUT STARTING ADDRESS OF SHARED MEM 
; INTO DTC FORMAT 
BIS #<QBMEM! UP> , CARAHI ; 
CLR @SCHA2H 
MOV $66$ , BECHA2QL 
MOV #CLIE2 , @8CMDR ;DISABLE INTERRUPTS 
MOV $SCCCH2, @CMDR ;ISSUE START CHAIN COMMAND 
63: BT #14000, a#STAT2 ;WAIT FOR IT TO BE DONE 
BIT SE0P , B8STAT2 ;NXM? 
BEQ 62$ - 
MOV #NOSIG,ESADR  ;; >> ERROR 203, 
a ERROR +205 33/7 
62$: BIT eTC.@eSTAT2 ;WAS TRANSFER SUCCESSFUL? 
MOV @OMA4., EMADR s3\\ 
MOV @NOSIG.ESADR ;; >> ERROR 204, 
ERROR +204 s3// 
65$: UMP 35$ 
66%:  ;CHAINS TO LOAD ADDRESSES IN QBUS MEMORY WITH STARTING ADDRESS 
<CARA! CARB! COP ! MODE > 
<K2MEM!UP> . CARAHI 
<GBMEM!UP> .KG$T06«2 
<SWRQ!HM> , <CTC! TRWW! INTLV> 
<CARA! CARB! COP !MODE> 
<K2MEM! UP > , CARAHI 
<GBMEM!UP> ,KGST07 +2 
<SWRQ!HM> , <TRWW!INTLV> 
64$: MOV #10000, DCOUNT ;SET UP A COUNT LOCATION TO BE DECREMENTED 
MOV #1048,R5 :POINT TO START OF TABLE WITH DTC 
JSR PC, SHMXFR EO TO SUBROUTINE THAT LOADS PARAMETERS 
Be a ;INTO DTC 
JSR PC, SHMXFR :GO TO SUBROUTINE THAT LOADS PARAMETERS 
;INTO DTC 
70$: ;coMes HERE AFTER TRANSFERS TO FROM KG IOP 
MOV —- @SCCCH2. @SCMOR ‘ISSUE START CHAIN COMMAND 
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715.1 OTC OMA 


120 
4821 034122 
4822 034124 


4823 034132 
4824 034134 

034142 

034150 
4825 034152 
4826 034156 
4827 034160 
4828 034166 
4829 034170 

034176 


034204 
4830 034206 
4831 034214 
4832 034222 
4834 034224 
4835 0342350 


4836 034234 
4837 034240 


4838 
4839 034242 
4840 


032737 
001774 
005000 


077001 
032737 
001414 
032737 
001071 
012737 
012737 

205 


012737 


014000 


000002 
000040 
020513 
045206 
000001 
020451 
045206 
001412 
140000 
022016 
045206 


177770 
000004 


120000 
130000 
004000 


036544 
045206 
000040 
001372 
021756 
045206 


175740 
001412 


000140 
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ACCESSES TO SHARED 
174454 785: 


174454 
177540 
044746 
044752 
174454 


044746 
044752 


73$: 


001414 


044746 
044752 


001414 
001414 


75$: 


044746 
044752 


76$:; 
71$: 


177540 


74$: 


044746 
044752 


778: 


80$: 


79$: 


72$: 


Page 122 
BIT #14000, a@STAT2 ;SPIN HERE 
BEQ 78$ 
CLR 
SOB RO, . ;WAIT FOR LATE EOP 
BIT SOP aeSTAT2 ;EOP SET? 
BIT #81705 ,BeK2CSRU ;WAS EOP CAUSED BY SACK TIMING OUT? 
MOV § #DMA4,EMADR me catsal 
MOV #@NOSIG.ESADR ;; >> ERROR 205, 
ERROR+205 afi 
BR 80$ ;RETURN TO NEXT SERIES OF TESTS 
BIT #TC , aeSTAT2 ;WAS TRANSFER COMPLETE? 
BNE 73$ ; 
MOV -¥ s3\N\ 
MOV #NOSIG,ESADR ;; >> ERROR 206, 
Ist TSTLOC % ;IS TPRO OF KG IOP ZERO? 
BIT #140000 , TSTLOC+2 ;ANY ERRORS IN KGIOP? 
MOV  @KG.ER,EMADR = ;;\ 
MOV @NOSTG, ESADR $i >» ERROR 207, 
BIC #tC7, TSTLOC+2 ;CLEAR OFF UN-NEEDED BITS 
che #4, TSTLOC+2 ;IN WAITING FOR COMMAND STATE? 
TRANSFER WAS SUCCESSFUL. GO CHECK RESULTS 
MOV #130000,R3 
MOV $2048. ,R1 ;INIT LOOP COUNTER 
CMP (R2)+,(R3)+ ;TOP 2 KWORDS OF SHARED MEM SHOULD = 
; LOWER 2 KWORDS OF SHARED MEM. 
BEQ 76$ 
MOV »EMADR 33\ 
MOV ,ESADR 3; > ERROR 210, DATA NOT TRANSFERED CORRECTLY TO/FROM KG IOP 
ERROR+210 3377 
SOB R1,75$ ;LOOP CONTROL 
BIC #B81T05, @@K2CSRU ;CLEAR OUT SACK TIME OUT BIT 
DEC 1 ‘GIVE IT A FEW CHANCES 
BNE 70$ ;WHEN DCOUNT GETS TO ZERO ITS HAD 
‘ENOUGH TIME. FLAG AN ERROR 
MOV _ @KGNR. EMADR 
MOV @NOSIG,ESADR Le. >> ERROR 211, KNOWN GOOD IOP WENT TO LUNCH 
ERROR+211 337/ 
BR 80$ 
<CARA!CARB!COP !MODE> 
<QBUSIO!UP> 175740 
sKOMEM:UP> TS ,TSTL 
<SWRQ!HM> , <TRWW!INTLV> 


;sCHECK TO SEE IF A Q-BUS EXERCISER IS PRE 
;sADDRESS 770000 FIRST. IF NONE IS FOUND L 
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000001 
007600 


050736 
035226 


037076 
034726 
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0 SKARED MEMORY _ 


317770020. IF BOTH ARE RESIDENT ONLY THE 18 BIT QBE WILL BE USED. 


050760 35%: CMP cata ;IS THERE AN 18 BIT Q-BUS EXERCISER 
007600 CMP LOWLIM, #7600 ;IF LOWLIM IS OUT OF RANGE OF 18 BITS 
BHIS $ ; THEN BAIL OUT 
;GET ADDRESS FORMAT OF LOWLIM FOR QBE18 
JSR PC ,Qi18ADR 
MOV #106$ RS 
BR 37$ 
050756 36$ CMP #1,3?QBE22 ;IS THERE A 22 BIT QBE? 
BNE 39$ ;NO QBES PRESENT 
050752 CMP #7600 ,LOWLIM ;D0 WE NEED 22 BITS TO ACCESS SHARED 
BHI ; MEMORY AND IF SO DOES THE SYSTEM 
000026 CMP ABUSW , #22 ; SUPPORT IT? 
39$: JMP SHMXIT 
;GET ADDRESS FORMAT OF LOWLIM FOR QBE22 
38$. JSR PC, ADR : f 
MOV #107$,R5 ;. JAD POINTER WITH TABLE DATA 
37$: JSR Py ; 
PC, SHMXFR 
;CHECK TRANSFER FROM QBE TO SHARED MEMORY 
6 
400$ CLR Re 
SOB R2 ;WAIT A BIT 
MOV # »R2 
402$ 4 (R2)+ , #63636 
044746 MOV #LMGH3 , EMADR 33 \\ 
044752 MOV #NOSIG,ESADR 33; >> ERROR 212, BAD DATA TRANSFER FROM QBE TO SHARED MEM 
ERROR+212 33/7 
401$ SOB R1,402$ 
JMP ;BAIL OUT AFTER ERROR 


L110 
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T15.1 OTC DMA ACCESSES TO SHARED MEMORY 
4891 ; SUBROUTINE TO CHECK TRANSFERS FROM SHARED MEM TO LOCAL 
4892 ;COMPARE THE DATA 10 ENSURE THAT THINGS WENT OK 
4894 034510 012702 120000 32$: MOV : 
4895 034514 012703 061022 MOV SBUFR1,R3 
489% 034520 022223 33$: CMP (R2)+,(R3)+ 
4897 034522 001407 BEQ 34$ 
4898 034524 012737 036544 044746 MOV @LMGH3,EMADR = ;;\\ 
034532 012737 045206 044752 MOV @NOSIG.ESADR ;; >> ERROR 213, DATA NOT TRANSFERED CORRECTLY 
034540 104213 ERROR+213 aff 
4899 034542 077112 34%: SOB R1,33$ ;R1 WAS INITIALLY LOADED WITH OP COUNT 
4900 034544 000207 RTS PC 


} 
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715.1 DTC DMA ACCESSES TO SHARED 
4902 034546 100$: 
4903 3---*F ER 
;---DATA FOR TRANSFER FROM Q@BUS SHARED MEMORY TO LOCAL MEMORY--- 
4905 034546 050752 000000 100000 _ > <QBMEM! UP>, LCLMEM, BUFR1, <K2MEM!UP>, 4096. 
4906 034564 1016: 
4908 ---DATA FOR TRANSFER FROM LOCAL SHARED MEMORY TO QBUS SHARED MEMORY--- 
4909 5 wnmdena camels SAME PHYSICAL ADDRESSES = ~—+~--------------- 
4910 934564 172352 000000 000000 KIPARS, 0, <K2MEM!UP>, LOWLIM, 0 <QBMEM!UP>, 4096. 
491i 34602 102%: 
4912 ;---THIRD TRANSFER 
4913 ;---DATA FOR TRANSFER FROM QBUS SHARED MEM TO @BUS SHARED MEM--- 
4914 034602 050752 000000 100000 i x <QBMEM!UP>, LOWLIM, 10000, <QBMEM!UP>, 2048. 
4915 034620 03$: 
4916 ;---FOURTH TRANSFER 
4917 ;---NOW FOR SOMETHING COMPLETELY DIFFERENT; SOURCE ADDRESS INCREMENTS 
491 _ g=--WHILE DESTINATION DECREMENTS 
4919 034620 050752 000000 100000 L , 0, <QBMEM!UP>, KIPARS, 17776, <K2MEM!DOWN>, 2048. 
4920 034636 104: 
;---TRANSFER PARAMETERS TO TPR2 AND 3 OF GOOD IOP 
4922 034636 172340 056466 100000 ai KIPARO, KG$T04, <QBMEM!UP>, KIPARO, 175744, <QBUSIO!UP>, 2 
;---TRANSFER COMMAND TO DMA LOAD CHAIN INTO KNOWN GOOD IOP 
4985 034654 172340 056472 100000 male: KIPARO, KG$T05, <QBMEM!UP>, KIPARO, 175740, <QBUSIO!HOLD>, 1 
4 ;---TRANSFER TO INIT THE 18 BIT QBUS EXERCISER 
4928 034672 172340 037142 000000 KIPARO, QBLOAD, <K2MEM!UP>, KIPAR7, 10000, <@BUSIO!UP>, 7 
49 i---TRANSFER TO SET THE GO BIT IN CSR2 OF THE 18 BIT QBE 
4931 034710 172340 050760 000020 18, <K2MEM!HOLD>, KIPAR7, 10002, <QBUSIO!UP>, 1 
4932 034726 107$: 
49 ;---TRANSFER TO INIT 22 BIT QBUS EXERCISER 
4934 034726 172340 037142 000000 KIPARO, QBLOAD, <K2MEM!UP>, KIPAR7, 10020, <Q@BUSIO!UP>, 7 
4936 ;---TRANSFER TO SET THE GO BIT IN CSR2 OF THE 22 BIT QBE 
4937 034744 172340 050756 000020 KIPARO, QBE22, <K2MEM!HOLD>, KIPAR7, 10022, <QBUSIO!UP>, 1 
rte ; 
4940 034762 SHMXFR : | 
434) ;SUBROUTINE TO INITIATE AN DTC DMA TRANSFER TO/FROM SHARED MEMORY. 
‘ 
4943 : ON ENTRY: RS= START OF TABLE TO LOAD XFER PARAMETERS INTO A 
4944 ; CHAIN FILE THAT WILL BE LOADED INTO DTC CHIP. 
4945 TOP 8KB OF LOCAL MEMORY IS ENABLED AS SHARED MEMORY 
ana? ; TO @BuUs. 
4948 034762 005037 174454 CLR @eCMDR ;RESET THE DTC 
4949 034766 012737 000115 174470 MOV $115, a00R :SET UP THE DTC 
4950 034774 005037 174446 CLR 
4951 0 012737 035202 174442 MOV BECHALL ‘LOAD CHAIN ADDRESS 
4952 0 013500 15$: MOV acR5)+,RO 
4 10 004737 036764 JSR PC, POPDTC ;PUT ADDRESS IN DTC FORMAT 
4954 035014 013737 037042 035204 MOV CARAHI ,26$ 
4955 035022 013737 037044 035206 MOV CARALO.27$ 
138 RR Sisesy SHS ae fae 
4958 035040 013500 MOV a(R5)+,RO 


K10 
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115.1 OTC DMA ACCESSES TO SHARED 
4959 035042 004737 036764 JSR PC. PDPDTC ;PUT ADDRESS IN DTC FORMAT 
4960 035046 013737 037042 035210 MOV CARAHI ,28$ 
4961 035054 013737 037044 035212 MOV CARALO.29$ 

03 035212 ADD (R5)+,29$ 
03 035210 BIS (R5)-. 28s 
4964 035072 0 MOV (R5)-. ;LOAD R1 FOR CHECK ROUTINES 
4965 035074 010137 035214 MOV Ri mat ;LOAD OP COUNT 
4966 035100 0 000240 174454 MOV Raat ;ISSUE START CHAIN COMMAND CHI 
4967 035106 012737 000102 174454 MOV #SSRCH1 . @SCMDR ;ISSUE SET SOFTWARE REQUEST COMMAND 
4968 035114 032737 014000 174456 14$: BIT #14000, a8STATI ;LOOK FOR CHAIN ABORT OR NAC 
035 00177 BEQ 14$ ;WAIT FOR NAC TO SET 
4970 035124 032737 000002 174456 BIT SEOP , @eSTATI DID WE GET AN EOP 
4971 035132 00140 BEQ 12$ ; 
4972 035134 012737 020513 044746 #DMA4 , EMADR s3\N\ 
035142 012737 045206 044 @NOSIG.ESADR ;; >> ERROR 214, 
035150 104214 +214 $3 
4973 035152 032737 000001 174456 12$: BIT #TC, @8STAT1 ;WAS TRANSFER SUCCESSFUL? 
4974 035160 00100 BNE 13$ 
4975 035162 012737 020451 044746 MOV #DMA3,, EMADR ssNN\ 
035170 012737 045206 044752 MOV #@NOSIG.ESADR j;; >> ERROR 215, 
035176 104215 ERROR+215 3347 
4976 035200 000207 13$: ARTS 
4977 
4978 
4979 ;CHAIN FILE FOR SHARED MEMORY TRANSFERS 
4981 035202 001603 25$: WORD  <CARA!CARB!COP!MODE!CHAD> 
4982 035204 000000 26$: 0 ;SOURCE SEGMENT 
4983 035206 000000 27$: [WORD 0 ;SOURCE OFFSET 
035210 000000 28$: [WORD Oo ;DESTINATION SEGMENT 
4985 035212 000000 29$: [WORD 0 ;DESTINATION OFFSET 
4986 035214 000000 24$:  :WORD O ;0P COUNT 
4987 035216 000010 000240 WORD  <HM>, <TRWW!BUSHOG! IEOP> 
4988 035222 035202 WORD  <K2MEM>,25$ 
4990 035226 005037 177572 SHMXIT: CLR : 
4991 035232 042737 000004 177540 BIC geryoe BHCSR SDISABLE SHARED MEMORY 
4992 035240 042737 176000 037142 BIC #176000, GL ;CLEAR EXTENDED ADORESS BITS 
4995 035246 005037 037146 CLR 
4995 5 teseestesensenensunsenensensesensensessenssnsensenesneenensenss 
3% 
0352 tic 8 he ee ee 
4996 035252 ont. TEST THAT DMA STATE MACHINE TERM THAT HANDLES QHITS IS OK 
4997 085252 052737 77 a SENABLE SHARED MEMORY 
4998 03 012737 076543 001412 $7654 PeTLoe INIT TSTLOC WITH KNOWN DATA 
4999 03 005037 174454 CLR @eCMDR’ ;CLEAR OT 
5000 035272 0127387 000135 174470 #135, a6MMR ‘LOAD DTC MASTER MODE REG 
5001 035300 005037 174444 CLR @eCHAZH ; SEG/TAG FIELD 
2008 03 $04 012737 000 061 174454 HOV @CL TE. B#CHOR ;DISABLE INTERRUPTS FROM DTC 
4440 , @@CHA2L ; CHAIN 
5004 035320 012737 000010 175012 MOV #10, a8TPROS TELL ARBITER TO BANG ON SHARED MEMORY 
5005 035326 737 036330 JSR PC, ARBDIS 
5007 035332 012737 000241 174454 MOV #SCCCH2, @¢CMDR ;ISSUE START CHAIN COMMAND 
035 032737 014000 174454 13: BIT #14000, a#STAT2 ; 


L10 
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T15.2 TEST QHITS - 
' 
5009 035346 001774 BEQ 1$ ' 
5010 035350 013746 000120 MOV 94120, -(SP ;SAVE VECTOR | 
5011 035354 013746 000130 MOV @#130,-(SP) :SAVE VECTOR 
5012 035 013746 000132 MOV 132,-(SP) 
5013 035 012737 035450 000 MOV $,a#120 ;LOAD TRAP HANDLER 
5014 035372 012737 035442 000130 MOV $7$.98130 ; 
15 03 012737 000340 000132 MOV 7 ,a#132 : 
16 03 012702 177530 MOV $K2CSRD ,R2 ; 
5017 035412 042712 O01 BIC #81712, (R2) ;DON'T ALLOW BUS INTERRUPTS 
5018 035416 012737 000110 177532 MOV #110, ;TELL ARBITER TO STOP ACCESSING SHARED MEMORY 
5019 035424 032712 14$: BIT #B1T14,(R2) ;DID THE QIR GET WRITTEN? 
20 035430 001775 BEQ 14 
5021 035432 052712 030110 BIS #30110, (R2) ;ENABLE Q-BUS INTERRUPT, IACK INTERRUPT, TPR 
;..ACCESS FROM Q BUS AND TPRO4 INTERRUPT 
5023 035436 000234 SPL ;LOWER PRIORITY LEVEL 
5025 035442 022626 7$: CMP (SP)+,(SP)+ ;FIX STACK INTERRUPT VIA 130 
5026 035444 234 SPL 4 ;WAIT FOR INTERRUPT CAUSED BY ARBITER WRITING 
5027 035446 WAIT ;TPRO4 TO TELL K2 THAT IT'S STOPPED WRITING MEM. 
5028 035450 0226 63: CMP (SP)+,(SP)+ 
03 012637 000132 MOV (SP)+,a8132 ;RESTORE THE VECTORS 
5030 035456 012637 000130 MOV (SP)+ #130 ; 
5031 035462 012637 000120 MOV (SP)+,a#120 ; 
03 032737 000002 174454 BIT SE0P , BESTATO ;DID EOP OCCUR? 
5033 035474 001407 BEQ 2$ 
5034 035476 012737 020513 044746 MOV #OMA4,, EMADR s3\N 
035504 012737 045206 044752 MOV #NOSIG,ESADR ;; >> ERROR 216, 
035512 10421 +216 33/7 
5035 035514 032737 000001 174454 2%: BIT #TC, @eSTAT2 ;DID WE GET TC? 
03 00100 BNE 3$ 
5037 03 524 012737 020451 044746 MOV 3,€ 3\N 
035532 012737 045206 044752 MOV @NOSIG,ESADR  ;; >> ERROR 217, NO TC!EOP 
035540 104217 ERROR+ FY 
5038 035542 000410 3$: BR 15 
0 035544 001602 10$: <CARA! ' 'MODE > 
5041 035546 20 001412 <K2MEM!HOLD>, TSTLOC 
5042 035552 <KOMEM! >, 0 
3048 oeeeee $0008 000140 seuRa! Het TRWW!INTLV 
< 'HM>, < j > 
5045 035564 15$: 
5046 5 5 KERREREEAAEERAESSEREREREEEEEEREEREEEEAERARERERSRERERERSEEER ERTS 
:#TEST 15.3 MEMORY TRUCTIONS 
035564 i A i fe de ah cat a 
70 SHLOCK: ; TEST THE SHARED USING THE LOCK INSTRUCTIONS 
Os8ee4 05273 177540 é1s 02, TENABLE SHARED MEMORY 
3049 035572 012737 017600 172852 MOV #17600, @¢KIPARS ;POINT TO SHARED MEMORY 
O38b00 052737 1 177572 BIS #1, 26MMRO : TURN ON MMU 
35606 012700 i MOV #120000, RO ; 
035612 012702 120000 MOV 120000, R2 
;INIT 4KW BLOCK OF OF SHARED MEMORY WITH PATTERN 120000 TO 137776 
035616 012701 010000 MOV $4096. .R1 
5055 2 007322 i$: .WORD 7322 ;eeeTEST WRTLCK INSTRUCTION 
5056 062700 000002 ADD #2,RO ; 
5057 0 077104 SOB Ri,1$ ;LOOP CONTROL 
eds 03 012702 120000 MOV # : ; 
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5059 035636 012700 120000 MOV $120000,RO ; 
5060 035642 012701 010000 MOV $4096. .R1 ; 
5061 035646 020220 2$: CMP R2,(RO)+ :I8 PATTERN THERE? 
035650 001410 BEQ 3$ 
5063 035652 012737 036571 044746 MOV § LMGH4,EMADR ss; ;\\ 
03 012737 045206 044752 @NOSIG.ESADR ss :; a ERROR 220, PATTERN NOT CORRECT 
035666 104220 ERROR+ 33/7/ 
5064 035670 000442 BR 7$ 
5065 035672 062702 000002 3$: ADD #2, 
5066 035676 077115 SOB R1,2$ : 
5067 ;NOW TEST THE TSTSET LOCK INSTRUCTION 
5068 035700 012701 010000 $4096. .R ; 
5069 035704 012702 120000 MOV #120000, R2 ; 
5071 ;WRITE AN INCREMENTING PATTERN TO SHARED MEMORY STARTING 
5072 ;AT VIRTUAL LOACTI IS INITIALIZED WITH THE 
5073 ; 120000. THE TSTSET INSTRUCTION READ THE VALUE 
5074 FROM VA 120000. IT WILL THEN OR THE LSB =1 
5075 ‘WRITE IT BACK OUT. THE RESULT WILL BE THAT THE DATA IN 
2076 ;EACH VIRTUAL ADDRESS = ITSELF +1 
5078 035710 007222 4s: .WORD 7222 ;%xa%TEST TSTSET INSTRUCTION 
5079 035712 077102 S08 R1,4$ ;LOOP CONTROL 
5080 035714 012702 010000 MOV #4096. ,R2 ; 
5081 035720 012701 120000 MOV #120000 ,R1 
5082 035724 012703 120001 MOV #120001,R3 ; 
5083 035730 020321 S$: CMP R3,(Ri)+ ;CHECK RESULTS 
5084 035732 00141 BEQ 6$ 
5085 035734 010337 001124 MOV R3, $GDDAT ;GET EXPECTED DATA 
035740 014137 001126 MOV -(R1), $BDDAT ;..AND ACTUAL DATA 
5087 035744 010137 001120 MOV Ri . SGDADR ;...AND FAILING ADDRESS 
5088 035750 012737 036631 044746 MOV EMADR ss; \\ 
035756 012737 045244 044752 MOV #€F3,ESADR ;3 >> ERROR 221, TSTSET INSTRUCTION FAILED 
035764 10422 ERROR+221 33// 
9 0357 BR 74 ;BAIL OUT ON ERROR 
035770 062703 000002 6$: ADD $2 ,R3 ;UPDATE DATA 
035774 077223 SOB R2,5$ 
035776 7$: 
5093 035776 ARBLMGH: 
3034 ;CONDUCT SOME TESTS OF LMGH FROM THE ARBITER SIDE. 

5 ‘THE TESTS ARE INITIATED BY CAUSING AN INTERRUPT TO THE ARBITER CPU 
5096 VIA THE GIR. TPROS OF THE INTERRUPTING IOP WILL CONTAIN A VALUE THAT 
5097 ;WILL BE USED BY THE INTERRUPT ROUTINE EXECUTED BY THE ARBITER TO INDEX 
5098 'TO A TEST SUB-ROUTINE. TEST COMPLETION OR ERRORS ARE REPORTED VIA TPRO4 
2099 :OF THE IOP UNDER TEST. 

3101 iNOW LET'S GET DOWN TO THE BUSINESS OF TESTING 
S108 i CAUSE ARBITER TO WRITE THE SHARED MEMORY USING THE BUS LOCK INSTRUCTIONS 
3183 035776 005737 050762 TST KDU$ ;IS THE ARBITER A KDJ11 

106 936002 001 BNE i$ sacs all a ggeaat 

13 Sueno Sia Suri See. UR 

5198 9 036014 01275 017600 172352 HOV @17600,KIPARS 5 sHAP IPA TO TOP OF PHYSICAL Y 

se Hy 
ili o8édee ois 120000 MOV #120000 ,RO ;INIT RO AS A POINTER 
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WITH LOCKED INSTRUCTIONS _ 
177572 BIS #1,377RO ; TURN ON MMU 
10$: CLR (RO)+ ;CLEAR OUT TOP OF MEMORY 
SOB R1,10$ ;LOOP 
000120 MOV #15$ ,a#120 ;SET UP INTERRUPT HANDLER 
CLR ;CLEAR TPR4 
175012 MOV 42, @8TPROS ;INDEX VALUE THAT DISPATCHES ARBITER TO TEST.. 
;.. TPR READ ACCESSES TER SIDE. 
JSR PL , ARBDIS ; : ROUTINE TO GENERATE AN INTERRUPT TO THE 
SPL 4 ‘LOWER PRIORITY LEVEL 
;COMES HERE ON INTERRUPT FROM ARBITER WRITING TPRO4 AFTER DOING WRTLCK TEST 
177530 15$: BIC $B1T03,@8K2CSRD ;STOP INTERRUPTS FROM WRITES TO TPRO4 
MOV #4096. .R1 ;SET UP FOR LOOP 
HOV #120000,RO ;INIT RO AS A POINTER 
20$: CMP R2, (RO) ;IS DATA CORRECT 
BEQ 25$ 3 
MOV R2, $GDDAT ;GET DATA 
MOV (RO), $BDDAT ;GET ACTUAL DATA 
MOV RO, $GDADR ;GET FAILING ADDRESS 
044746 MOV EMADR 5 3NN 
044752 MOV #€F2,ESADR >; >> ERROR 222, ERROR WITH WRITE LOCK FROM ARB SIDE 
ERROR +222 / 
25$: ADD #2,R2 ‘ADD TWO TO DATA 
ADD #2,RO ATs 0 ADDRE 
SOB R1.20$ ;LOOP CONTROL 
177572 BIC 1 
CMP (SP )+ NS of neti 
;NOW SET UP TO CHECK 1 TION F FROM ARBITER SIDE 
000120 MOV ae’ 
175012 MOV Pag tt BETPROS ‘DBINTER TO TSTSET TEST ON ARBITER SIDE 
JSR PC; ARBDIS iWRITE VECTOR TO ARBITER 
COMES HERE ON INTERRUPT FROM ARBITER WRITING TPRO4 AFTER DOING TSTSET TEST 
177530 40$: BIC $B1T03,99K2CSRD ;STOP INT TS FROM WRITES TO TPRO4 
MOV $4096. .R1 FOR L 
MOV 4120000 ,RO SINIT RO AS A POINTER 
MOV #1,R2 ; 
177572 BIS #1. BOMMRO ; TURN ON MMU 
35$: CHP R2 (RO) ;IS DATA CORRECT 
MOV R2 T ;GET EXPECTED DATA 
MOV (RO),$BDDAT ;GET ACTUAL DATA 
044746 roy ore EMADR aaNk cyanate 
vi 53 
044752 MOV €F2,ESADR ye. ERROR 223, ERROR WITH TEST SET FROM ARB SIDE 
ERROR+223 ged 
40$: ADD #2,R2 ;ADD TWO TO DATA 
ADD #2,R0 fire 0 ADDRESS 
SOB R1,35$ ;LOOP CONTROL 
CMP (SP)+,(SP)+ sFAKE THE RTI 
MOV (SP )..08 ;RESTORE VECTOR : 
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aie? ;10P WITH THE APPROPRIATE VECTOR 

5167 ;0N ENTRY: TPROS CONTAINS A VALUE THAT THE ARBITER WILL USE TO 

sie5 ; INDEX TO THE DESIRED TEST. 

5170 036330 052737 000100 177530 BIS #B1IT06,@8eK2CSRD ;ENABLE TPRS 

5171 036336 042737 010000 177530 BIC #681T12,@@K2CSRD ;DON‘'T ALLOW QBUS INTERRUPT 

5172 036344 013737 036434 177532 MOV : ; 

5173 036352 032737 040000 177530 1%: BIT #681114, a%K2CSRD ;DID IT GET WRITTEN? 

5174 036360 001774 BEQ i$ ;BRANCH ‘TIL IT DOES 

5175 036362 013746 000130 MOV #130, -(SP) sSAVE VECTOR 

5176 036366 012737 036406 000130 MOV #2$ ,8#130 ; TRAP HANDLER 

5177 036374 052737 030000 177530 BIS #<BIT12!BIT13>,@@K2CSRD ; THEN ENABLE @ BUS INTERRUPT AND 
sIACK INTERRUPTS 

5179 026402 000234 

5180 9 000001 WAIT 

5181 0 0 2s: CMP (SP)+,(SP)+ sFIX STACK 

5182 036410 012637 000130 MOV (SP)+ ,9#130 sRESTORE VECTOR 

5185 036414 042737 030000 177530 BIC #<BITi3!B1T12>, @eKOCSRD ae tn QBUS_INTERRUPTS AND 

5184 ' INTERRUPTS 

5185 036422 052737 000010 177530 BIS lat @K2CSRD Oe ay sicreine inTeRRUPTS FROM TPRO4 

186 036430 pas Se ;ALLOW INTERRUP 

ibe 036432 000207 RTS PC 

ed 036434 000000 INTVEC: .WORD 0 sHOLDS VECTOR TO BE WRITTEN TO QIR 

“ 

3191 036436 200 124 122 LMGH1: .ASCIZ <CRLF>/TRANSFER TO SHARED MEMORY TIMED-OUT/ 

519 oes 200 124 122 LMGH2: .ASCIZ eee ate TO Q@-BUS I/0 TIMED-OUT\ 

a3 036 200 102 101 LMGHS: .ASCIZ <CRLF>/BAD A / 

194 036571 200 127 122 ASCIZ <CRLF>/WRITE LOCK TO SHARED MEM ERROR/ 

5195 peeers 200 124 105 LMGHS: yagi SET TO MEM 

5196 03666 200 101 122 WILK: .ASCIZ < >/ARBITER SIDE LOCK ERROR/ 

red 036726 200 101 122 yA -ASCIZ <CRLF>/ARBITER SIDE TEST SET ERROR/ 





Cil 


KXJ11-CA FUNCTIONAL TEST 
ACCE 


715.3 SS SHARED 


5200 036764 


7 
Sel2 036766 


See8 037036 
3562 037040 


Se 

Ses 037042 
raf 037044 
ase 037046 
234 037050 


177776 


140377 
000010 


037042 
037044 


MACRO YO5.02 ureter 03-Apr-86 14:11 P 131 
MEMORY WITH LOCKED INSTRUCTI - oa 


POPDTC: 


;ROUTINE TO FORMAT A PDP/LSI11 PHYSICAL ADDRESS FOR DTC USE. 

;TAKE THE STARTING ADDRESS (GLOBAL) OF THE FIRST 8KB BLOCK OF SHARED MEMORY. 
;SHIFT IT TWICE TO THE RIGHT TO LINE IT UP WITH THE DTC FORMAT AND MASK OFF 

: WHICH REPRESENT ADDRESS BITS <15:13>, THE REMAINING BITS WILL BE 
;SET IN THE UPPER CURRENT ADDRESS REGISTER. THEN SHIFT RO, WITH ALL 

; ICANT ADDRESS BITS HAVE BEEN SHIFTED 
sINTO RS. THEN R3 IS THE OFFSET ADDRESS OF THE @ BUS (GLOBAL) SHARED MEMORY. 


MOV R1,-(SP) 
MOV R2,-CSP) 
MOV R3,-(SP) 
ASH $-2,R0 ; BUMP IT RIGHT A COUPLE FOR DTC 
; ALIGNMENT 
MOV RO,R1 ;SAVE IT IN Ri 
BIC #1€37400,R1 ;MASK OUT THE NON-SEGMENT BITS 
CLR — R3 
MOV #10,R2 
CLC ‘CLEAR THE C BIT 
40$: ASR RO ;SHIFT 8 TIMES 
ROR R3 
SOB R2,40$ 
MOV Ri, ;LOAD CURRENT ADDR REG A HIGH WORD 
MOV R3 0 ;LOAD CURRENT ADDR REG A LOW WORD 
MOV (SP)+,R3 
MOV (SP )+,R2 
MOV (SP)+,R1 
RTS PC 
CARAHI: .WORD 0 
CARALO: .WORD 0 
STQ@BIO: .WORD 177600 ;START OF QBUS IO 
LCLMEM: .WORD 0 ;LOCAL MEMORY 
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5 037076 
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S26 
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S267 037134 
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. or 
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5274 0 
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Qi8ADR: ;SUBROUTINE TO CONVERT AN ADDRESS TO A FORMAT USABLE BY THE QBuUS 
EXERCISER 


Q22ADR: ; 


QADR: 


MOV R2,-(SP) ;SAVE THE REGIS 
MOV R3.-(SP) ; GOING TO BE USED BY INE. 
MOV LOWLIM, :PUT THE FIRST NON-EXISTANT MEMORY ADDRESS IN R2 
3. - WHICH BY THE MAY, IS ALSO THE FIRST SHARED 
MOV R2,R3 : RE AS WELL 
BIC $t€6000 ,R2 ;EXTRACT WHAT WILL BE ADDRESS BITS 17,16 
ASH $4 ,R2 ;ALIGN THEM 
BR QADR 
; SUBROUTINE TO CONVERT THE FIRST SHARED MEMORY ADDRESS TO A FORMAT 
;USABLE BY THE 22 BIT QBUS EXERCISER 
MOV R2,-(SP) ;SAVE THE REGISTERS THAT 
MOV R3, -(SP) ; GOING TO BE USED BY THIS ROUTINE. 
MOV LOWLIM,R2 ;PUT THE FIRST NON-EXISTANT MEMORY ADORESS IN R2 
$i . WHICH BY THE WAY, IS ALSO THE FIRST SHARED 
;... MEMORY ADDRESS. 
MOV eo eo AND R3 
BIC ##C176000,R2 EXTRACT BITS 21-16 OF ADDRESS 
BIC #tC1600,R3 ;EXTRACT BITS 15-13 OF ADDRESS 
ASH $6 ,R3 ;ALLIGN BITS 
;WHEN THE ABOVE HAS COMPLETED R3 WILL CONTAIN 
; ADDRESS BITS 15-13 OF THE QBE22 DESTINATION 
ADDRESS. R2 WILL CONTAIN ADDRESS BITS 21-16. 
BIS R3,QBLOAD+4 ‘STUFF BITS 15-12 INTO QBE 22 WORD 
BIS R2, QBLOAD sSTUFF BITS 21-16 INTO QBE 22 WORD 
S 17-16 INTO QBE 18 WORD 
MOV (SP)+,R3 TRESTORE REGISTERS 
MOV (SP)+,R2 
RTS PC 
: - WORD 641 ;DATA OUT/ ONE XFER PER DMG/ WORD 
° ;CSR2 
.WORD 0 ;ADORESS BITS 15-0 
“WORD  -4096. ;WORD COUNT 
‘WORD 63636 ;DMA DATA 
-WORD 0 
“WORD 0 
BIC #<BIT12!BITO3>,@@K2CSRD ;DISALLOW INTERRUPTS TO Q@BUS AND 
See 
BIC #B1T02, BOK2CSRU ;TURN OFF SHARED MEMORY 
BR TST16 33 
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106 


172354 


jj ESEEERESEESSESESSSEESSEEESEEESSEESSEESEEESES EE 540000000000003 20408 
y 26 F CHECKSUM 


3*#TES 


gp FSSESSESEASESASESSESSESESESSESESSESKSERESREAEEKESSEESESE EEE EEEEEEREREDE 
TS 


: SCOPE 
MOV #STACK, SP 3; SET A CLEAN STACK 
MOV #-1, TRAP4X ;; DISMISS BUS- ; 
BR 33 SKIP NEXT. 
30065$: JMP $E0P ;; BYPASS. 
30066$: T$ +4 3; PRINT TEST NUMBER AND NAME 
BR 7$ ;:...AND SKIP OVER THE ASCII 
ASCIZ \ FIRMWARE CHECKSUM\ 


30067$: — 
;CHECK OUT THE NATIVE FIRMWARE 


;Module ROMTST 


$ 
;Descr iption: 


NATIVE: 


hOV 
MOV 
MOV 


in 


This module calculates the checksum of the native firmware 
PROM. It then compares the calculated checksum with the 
checksum blasted into the the last location in the native 


firmware PROM section. If they are equal the PROM is 


The following algorithm is used to calculate the checksum: 


NEXT I 


@AKIPARG , -C SP) 


CKSUM = SUM ¢ 
CHECKSUM = ROTATE “LEFT _ONE_BIT 


:Save contents of KIPAR6 


#21400, BOK IPAR6 bie t KIPAR6 to physical addresses starting 


#17777 ,R2 


;Routine to calculate native firmware checksum and compere it 
;checksum value located in the lest native firmware 


at 21 
| eheck BK words of PROM - 1 


it with the 
location. 


Number of words of PROM to be checksumed minus 1 for the 
word which contains the PROM 


checksum value 


To checksum 16kB of native firmware PROM, R2 = 17777 
KIPAR6 = 21400. Points to begining of PROM address space. 


R4 
#170000 ,,R2 
i$ 


R2,R1 
2$ 


#10000 ,Ri 


R1,R2 


#140000 , RS 
(R3)-, 


R4 


sInit checksum location. 
;Are any of the bits 15 thru 12 = 1? 
Otherwise if any are set 
3 rwuise 

loop control with remaining value in R2 
Lent 290), i'as lace Gar hoes” 


; 
;Check 4K words of PROM 
Subtract — number words of PROM being tested 


‘Point to to KIPAR6 
3;Add contents of address to checksum 
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T16 FIRMWARE CHECKSUM 
5328 037324 000241 CLC :;Clear the carry bit in psw 
100001 BPL 11$ ;Branch if plus 
5330 037330 000261 SEC ;.-else eat carry bit 
5331 037332 006104 11$: ROL R4 ;..end around carry 
5332 037334 077106 SOB R1,3$ 3L control 
5333 037336 005702 TST R2 ;1f = zero all locations have been checked. 
5334 037340 001404 BEQ 4$ ;Go see if checksum is pe. 
5335 037342 062737 000200 172354 ADD #200,3¢KIPAR6 #£«;Otherwise to the next 4k word 
5336 037350 000752 BR 10$ 3... section of PROM. 
5337 037352 021304 4$: CMP (R3),R4 ;R3 now points to lest user PROM address. 
5338 ;Are checksums equal? 
5339 037354 001412 BEQ 5$ 
5340 037356 012637 172354 MOV (SP)+,@#KIPAR6 ;Restore KIPAR2 
5341 037362 012737 037412 044746 MOV #PROMCK,EMADR :3\\ 
037370 012737 045206 044752 MOV #NOSIG,ESADR 3:3 >> ERROR 224, PROM CHECKSUM ERROR 
04224 ERROR+224 33/7 
5342 037400 2 BR 6$ ;Return from error 
5343 037402 012637 172354 5$: MOV (SP)+,@#KIPAR6 ;Restore 
5344 037406 000137 037632 6$: JMP 
rt oF 037412 120 122 117 PROMCK: .ASCIZ /PROM CHECKSUM ERROR/ 
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037540 


16-JAN-86 


SUBROUTINE TO CONVERT 16 BIT CPAR FORMAT) VIRTUAL 
ADDRESS TO A 22 BIT GLOBAL (PHYSICAL) ADDRESS. 


ON ENTRY, Ri = PAR FORMAT VIRTUAL ADDRESS. 
GAHI<5:0> AND GALO<15:0> = GLOBAL ADDRESS<21:0>. 


: 


ON EXIT, 
VA2GA: MOV RO, -(SP) 
MOV Ri.-(SP) 
MOV R1_RO ; 
BIC $17777,RO ; STRIP PAR NUMBER... 
cLC ;...ROTATE IT AROUND TO AN INDEX. 
“REPT =«S 
ROL RO 
ROL RO 
ROL RO 
ROL RO 
ROL RO 
MOV KIPARO(RO),GALO ; GET PAR VALUE => GALO. 
CLR GAHI ; ZERO => GAHI. 
MOV #6 ,RO 
1$: ASL GALO 
ROL §_GAHI ; ROTATE PAGE TO BIT<21>... 
SOB RO, 1$ 
BIC $tC17777,R1 ;...STRIP VA<12:00>.. 
ADD R1,GALO AND COMBINE THE PIECES. 
ADC  GAHI 
MOV (SP)+,R1 
MOV (SP)+;RO 
RETURN 
GAHI: 0 ; GA<21:16> 
GALO: 0 ; GA<15:00> 
: 
; SUBROUTINE TO PUT TEST NUMBER IN THE LEDS. 
: MOVB = $TSTNM, RO ; TEST NUMBER. 
BIC 8tC17,RO ; STRIP THE NUMBER... 
RETURN 
3 : 
; SUBROUTINE(S) TO DELAY IN SOUS INCREMENTS. 
6200: CALL apc ; 200 USEC. 
D100: CALL PC ; 100 USEC. 
050: MOV $20. ,RO ; 50 USEC. 
SOB RO,. ; == 2.6US/COUNT. 
RETURN 
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001174 


BYTES: 
FLT10: 
FLT1: 
FLTO: 


VARC= 
. SBTTL 


; FLOATING 1 AND O DATA 
; USED IN 


TABLE. 
SERTAL LINE (DC319 AND NEC7201) AND PIO TESTS. 
0 ; BYTE COUNTS -- LOB XMTR, HIB RCVR. 
PAIR. 


-ASCII <CR><LF> SYNC 
YTE 001, 002, 004, oio. 020, 040, 100, 200 ; FLOATING 1. 
-BYTE 373, 367, 357, 337. 277, 177 ; — 0. 


rie 375, 
F / --@--/<7> ; AND END WITH ” --X--<DING>” 
.-5 ; POINTS TO THE VARIABLE (a). 


.EVEN 
END OF PASS ROUTINE 


jj ERKEAEAEAEEEAEREAAERERERESERESEREAEARSERESEESSEEREEER EERE REREEE 
aes 2 PASS NUMBER ($PASS) 

;#IF THERES A MONITOR GO TO IT 

;#IF THERE ISN’T JUMP TO AGAIN 


$E0P: 






SCOPE 
CLR $TSTNM 3 sZERO THE T-=ST NUMBER 
INC $PASS THE PASS NUMBER 
BIC #100000 , $PASS : DON’ T ALLOW A NEG. NUMBER 
DEC (PC)+ ae ? 
$EOPCT: .WORD 
BGT $DOAGN ;;YES 
MOV (PC )+,a(PC)-+ ; RESTORE COUNTER 
$ENDCT: .WORD 1 
$EOPCT 
ae aeKeCSRC ; TURN OFF THE LEDS 
3; PUSH ERROR... 
eset PASS COUNTS. 
33... AND IOP ID NUMBER 
:3 PRINT ERROR SUMMARY IF REQ’D. 
UPDATE ARBITE?S APT-MAIL-BOX. 
IS THERE MORE THAN 1 IOP BEING TESTED? 
IF NOT JUST KEEP TESTING THIS ONE 
IF IO0P=0 OR 1 FORGET IT 
TURN OFF QIR INTERRUPT 
i$: WAS VECTOR WRITTEN? 
DON'T ALLOW RESET INTERRUPT 
ALLOW @ BUS 
5$: BIAK RECEIVED?? 





NO INTERRUPTS TO @ BUS 
VECTOR 


LOAD VECTOR TO LET US RESTART 
¢ ALLOW INTERRUPT WHEN TPRi2 IS WRITTEN 





$, 00134 
#140, BK2CSAD 


Lid 
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END OF PASS ROUTINE 
33 ...BY ARBITER 
000234 SPL aa ;; LOWER PRIORITY LEVEL 
040070 000001 WAIT ;;WAIT HERE FOR INTERRUPT 
040072 000000 HALT 
;COMES HERE WHEN ARBITER WRITES TPRI2 
040074 012716 040102 2s: MOV #3$,CSP) 3;SET UP STACK FOR FAKE RETURN 
040100 000002 RTI 
oeotoe 012637 000134 zs: MOV (SP )+,a#134 ;sRSTORE VECTOR 
040106 013700 000042 $GET42: MOV 3742 ,RO ;;GET MONITOR ADDRESS 
040112 001405 BEQ $DOAGN ; ;BRANCH IF NO MONITOR 
040114 000005 RESET 33 THE WORLD 
040116 004710 $ENDAD: JSR PC, CRO) 7;GO TO MONITOR 
040120 000240 NOP ;;SAVE ROOM 
040122 000240 NOP ;3FOR 
040124 000240 NOP ;;ACT11 
126 $DOAGN: 
040126 000137 JMP aC PC )+ ; sRETURN 
040130 003064 $RTNAD: .WORD AGAIN 
040132 377 377 000 SENULL: .BYTE -1,-1,0 ;;NULL CHARACTER STRING 
5451 ; 
rats ; END-PASS TEXT STRINGS. 


200 113 130 $€OPID: .ASCIZ <CRLF>/KXu11-CA IDs / 
1 "ASCIZ /, PASS / 
7" TOTAL ERRORS / 


= 
om 
: 
gE 
: 
f 


Jil 
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SC OUTINE 


OPE HANDLER R 


5467 


001423 
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140644 


140560 
001106 


001172 


. SBTTL 


3#T 


SCOPE HANDLER ROUTINE 


; «AND 

: 

; *5W08=1 

5 #CALL 

;* 

*SCOPE: 
CKSWR 
CMP 
BHI 
SUB 
MOV 
JMP 

1$: 

; $eGGEGS TART 

$XTSTR: BR 
MOV 
MOV 
TST 
MOV 
BR 

5$: CMP 
MOV 
BR 

6$: ; ##¢¢3END 
BIT 
BEQ 
CLR 
BIC 
BEQ 
CMP 
BLT 
MOV 
DEC 
ASL 
ADD 
MOV 
BR 

8$: TST 

2$: TST8 
BEQ 
BIT 
BEQ 

7$: MOV 
BR 

43: CLRB 

$SVLAD: INCB 
MOVB 
MOV 


CONTROLS THE LOOPING 
;*#AND LOAD THE TEST NUMBERC$TSTNHD INTO 
LOAD THE ERROR FLAG (S$ERFLG) INTO DISPLAY<15:08> 
#THE a OPTIONS PROVIDED BY THIS ROUTINE ARE: 


op FERESSESESSSESESSSSSESASSSEESEAEE SEAS ESE SEES EAE SESE EEEESAREEERESEED 
S 


ING OF SUBTESTS. IT Wiil INCREMENT 
THE DISPLAY REG. (DISPLAY<7:0>) 


LOOP ON ERROR 
LOOP ON TEST IN SWR<6:0> 


; ;SCOPE=I0T 
ss TEST FOR CHANGE IN SOFT-SWR 
(SP), #1000 ; IOT CALL FROM TRAP CATCHER 2? 
i$ ;; SKIP IF NOT. 
#4, (SP) 33 T VECTOR 
(SP)+,(SP) :;...POP IT ONCE... 
UNXTRP ;;.-AND DO SOMETHING !! 


OF CODE FOR THE XOR TESTER @iioe 
RUNNING 


(SP). ¢TSTNM 
(SP) 
$$SWOSTBL , (SP) 
aC SP)+, $LPADR 
$OVER 


(SP)+ 
SERFLG 


$SVLAD 

+ 09, @SWR 
tg » $LPADR 
SERFLG 

$TSTNM 
$TSTNM, $TESTN 
(SP), $LPADR 


:IF ON THE "XOR” TESTER CHANGE 
; :THIS INSTRUCTION TO A_“NOP" (NOP=240) 
;;SAVE THE foun OF THE ERROR VECTOR 


3 sREST 

;7LO0P ON THE PRESENT TEST 
TESTERGGHES 

;;LOOP ON SPEC. TEST? 


IF 
;s;CLEAR A_TEMP. LOCATION 
;sPICKUP THE DESIRED TEST NUMBER 
MASK UNDESIRED BITS 
; sBRANCH IF BAD TEST NUMBER IN SWR 
cae ye 3 NUMBER THE 
; sBRA yy = pe Rg OUT OF RANGE 


; UPDATE THE TES 

;3BA BY ONE 

;;SCALE THE TEST NUMBER AS AN INDEX 
A TEST POINTER 


ORM OF 
33 = Le on ie tes DESIRED TEST 
; ;CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
ERROR OCCURRED? 








K11 
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SCOPE HANDLER ROUTINE 


040414 
20 


011637 
005037 
112737 
013777 
013716 
000002 


001110 MOV 
001160 CLR 
000001 001115 MOVB 
001102 140502 MOV 
001106 MOV 
RTI 
$SWOSTBL : 
-REPT $TN-1 
. WORD 
. WORD 
. WORD 
. WORD 
- WORD 
. WORD 
. WORD 
- WORD 
. WORD 
. WORD 
. WORD 
- WORD 
. WORD 
. WORD 
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(SP), $LPERR 
$ESCAPE 

#1, $ERMAX 
$TSTNM, @DISPLAY 
$LPADR , (SP) 


TSTi¢2 
TST2+2 


TSTi5¢2 
TST16+2 
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+s SAVE ERROR LOOP ADDRESS 


;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
;;ONLY ALLOW ONEC1) ERROR ON NEXT TEST 
TEST NUMBER 


; ;DISPLAY 
FUDGE 


: s STARTING OF T 
;sSTARTING ADDRESS OF TEST 16 


Lid 


KXJ11-CA FUNCTIONAL TEST 
ROUTINE 


TYPE 
5469 


001157 


000002 
000001 


000100 


040552 
042542 


000040 


000002 
000011 
000200 


041032 


040714 
001156 


001154 
000001 


040714 
041032 
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001206 
001207 


001207 


-SBTTL TYPE ROUTINE 


gp FESESSESESSSEKASESSESESSKSESSSSASE REESE SSSR ESRSASEALEKSEKERELALESEESR ERE 
TYPE 


INE TO ASCIZ MESSAGE . 
5 ¢THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
; #NOTE THE CHARACTER TO BE USED AS THE waa," 


* 


61$: 
62$: 


2$: 
60$: 
3$: 
4$: 


as 
*NOTE2: 
*NOTES: 


TYPE 


: 


TSTB 
HALT 


ade iehel g 


sengty 


: 


CLRB 
BR 
JSR 
CMPB 
BNE 
MOV 
DECB 
BLT 
JSR 
DECB 
BR 


$NULL CONTAINS 


CONTAINS THE NUMBER OF 


TH a BYTE. 


FILLER CHARACTERS 


$FILLS 
$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


;*CALL: 
;*1) USING A TRAP INSTRUCTION 
TYPE »MESADR 


#APTCSUP, $ENVM 
CRO)+, -CSP) 
£33: 

$2 cSb) 

#HT, (SP) 

as 

@CRLF, (SP) 
S$ 

(SP)+ 
$CHARCNT 

ec $TYPEC 

sr ILC, ($P)+ 
$NULL, -(SP) 
1(SP) 

6$ 

PC, $TYPEC 
$CHARCNT 


;s;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


331S THERE A TERMINAL? 
33 IF YES 
fe asia IF NO TERMINAL 


;;SAVE RO 
;;GET ADDRESS OF ASCIZ STRING 
; RUNNING 


a) IN APT 
;3NO,GO CHECK FOR APT CONSOLE 
;3SPOOL MESSAGE TO APT 
;;NO,GO CHECK FOR 
;;SETUP MESSAGE ADDRESS FOR APT 
; ; SPOOL MESSAGE T T 
; ME ADDRESS 
;;APT CONSOLE SUPPRESSED 
;3YES,SKIP TYPE 
; PUSH CHARACT BE TYPED ONTO STACK 
;38R IF IT ISN'T THE TOR 
T IT OFF THE STACK 


; RESTORE RO 
;;ADJUST RETURN PC 
; ;RETURN 

; ;BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


;3POP <CR><LF> EQUIV 
731 YPE AND LF 


;3G0 TYPE CHARACTER 
178 IT TIME FOR FILLER CHARS.? 


:GET @ OF FILLER CHARS. "NEEDED 


+4 
T MET NEED 70 BE TYPED? 
y NO--GO POP THE NULL OFF OF STACK 





M11 
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005726 


MACRO YOS.02 Thursday 03-Apr-86 14:11 


041032 


140150 
000002 


;HORIZONTAL TAB PROCESSOR 


8$: MOVB 
9$: JSR 
BITB 
BNE 
TST 
BR 
$TYPEC: 
TST8 
BPL 
MOV 
BIC 
CMPB 
BNE 
101$: 
TSTB 
BPL 
MOVB 
BIC 
CMPB 
BNE 
102$: 
TST 
10$: 
TSTB 


~ 
ee 
ae 


ie 
; 
x 
— 
w 


cota Ore 


#' ,(SP) 
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a TAB WITH SPACE 
ACE 


: [POP SPACE OFF STACK 
: GET NEXT CHARACTER 


;;CHAR IN KYBD BUFFER? 
+ BR IF NOT 


;GET CHAR 
: :STRIP EXTRANEOUS BITS 
CHAR XOFF 


;;WAS 

;3BR IF NOT 

33FIX STACK 

;;WAIT UNTIL PRINTER IS READY 


+ LOAD CHAR TO BE TYPED INTO DATA REG. 


+ tTS CHARACTER A CARRIAGE RETURN? 
BRANCH IF 

1 YES- -CLEAR CHARACTER COUNT 

pe CHARACTER A LINE FEED? 


; COUNT THE CHARACTER 
; ;CHARACTER COUNT STORAGE 


Nii 


KXJ11-CA FUNCTIONAL 
CONVERT 


5471 


TEST 
BINARY TO DECIMAL AND TYPE ROUTINE 


VOOR 


RE aa kN yh eee a 
SSEVORS 


BVOSMOME 


112723 


020200 
000020 


000055 
041252 
000040 


041242 


000010 


177777: =: 177776 


MACRO 


000001 


177777 





PARMAR OOO PARR LEE N SO NOE hh eS RE IE ee 


YOS.02 Thursday 03-Apr-86 14:11 Page 142 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
1 sosscesoupeerseroesconetocsosstoooostatneneentoccsssrnetetates 
INE IS USED TO CHANGE A NUMBER TO 


; #SIGNED DECIMAL (ASCII) 


SO 
va 


8$; 


9$: 


Senasre 


+< 


Za SEP LOPRSPERBESSESSS 


a 
o 


~ 


S 


NUMBER IT. DEPEND 
;#NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE 
;*BEFORE THE FIRST DIGIT OF NUMBER. LEADING ZEROS 
;#REPLACED WITH SPACES. 


NUM, -CSP) 


wo 
4 1) 
q 


RNR ONE™ 


R3) 
SP) 
SP) 
SP) 
SP) 


THE 


1(SP), -2CR3) 


A 5-DIGIT 
THE 


TYPED 
WILL ALWAYS BE 


= 
: 
- 


GO TO THE 
;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;;PUSH RS ON STACK 
;;SET BLANK SWITCH AND SIGN 


aes 
. 
: 
- 


NUMBER NEG. 
+ $ZERO THE CONSTANTS INDEX 
;;SETUP THE OUTPUT POINTER 
amet THE FIRST CHARACTER TO A BLANK 
33 THE BCD NUMBER 
#sGET THE CONSTANT 


FORM THIS BCD DIGIT 


BR IF 
;;INCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 
;;CHECK IF BCD DIGIT=0 


emt DOING LEADING 0'S? 


a3 
;;BR YES » 
;3MSO? 
;;BR IF NO 
;3YES--SET THE SI 
;:;MAKE THE BCD DI II 
;;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
3;3PUT T THE 


118 "IF NO 

S--SET THE SIGN FOR TYPING 
He THE TOR 
;;POP STACK 0 R5 


::POP STACK INTO R2 
3:PO0P STACK INTO R1 








Bic 
KXJ11-CA F 
CONVERT BI 


5485 
5486 
5487 
5488 


041222 
041224 
041230 


041270 
041272 
pots $3 
041302 
041304 


041262 
041210 
000424 
105013 
124327 
001002 
112713 
rats H 
101370 
000742 


IONAL TEST 
TO DECIMAL AND TYPE 


041252 


000002 000004 


000177 
041252 
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ROUTINE 
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MOV (SP)+,RO ;;P0P STACK INTO RO 
TYPE , $DBLK ;:;NOW TYPE THE NUMBER 
MOV 2(SP),4(SP) ;;ADJUST THE STACK 
MOV (SP)+, (CSP) 
RTI ;;RETURN TO USER 
$DTBL: 10000. 
1000. 
100. 
$OBLK: .BLKW 4 
34//444/444444/////7 QERLAY PATCH \\A\AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAY 
$ 
; BACK UP AND PATCH $TYPDS TO REALLY NULL LEAD ZEROS 
; INSTEAD OF ING THEM WITH ‘ 
; NOTE: 100000(8) GETS PRINTED AS -0 CIT'S REALLY -32768.). 
; 
SVPC=. a SAVE OF 
. =$DTBL-32 ;..-AND POINT TO 9$. 
9%: a $$TDX ; BR TO PATCH. 
$$TDX: CLRB (R3) ; SET STRING TERMINATOR. 
$: CMPB -(R3),#40 
BNE Be _ 3 SKIP IF NOT <SP>. 
MOVB #177,(R3) ; ELSE, CHANGE TO A <NULL>. 
2$: CMP R3, #$DBLK 
BHI i$ ; LOOP ‘TIL DONE. 
BR $DTBL-30 ; RETURN TO 9$-2. 


ap. 


KXJ11-CA FUNCTIONAL 


TEST 
BINARY TO OCTAL (ASCII) AND TYPE 


5490 


een 


SRSSERSES CORE 


SELELELLESLELSSEL 
> 


ih eee pe 


88 


000001 
041533 
000002 


041532 
177770 
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-SBTTL BINARY TO OCTAL CASCII) AND TYPE 


|e ITI Tk Cnn te CoE naa ET Cee maaawnnoecotes 
CHANGE BINARY TO A 


4 ROUTINE IS USED TO A 16-B1T Y NUMBER 6-DIGIT 
;#OCTAL (ASCII) NUMBER IT. 

;#$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
a MOV NUM, -(SP) ;;NUMBER TO BE TYPED 


;;CALL FOR TYPEOUT 
33N=1 Ss : FOR NUMBER OF DIGITS TO TYPE 
;* 


BYTE 3 3M=1 
3;1=TYPE LEADING ZEROS 
3% ;;0=SUPPRESS LEADING ZEROS 
Hd 


;*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;*#$TYPOS OR $TYPOC 


MOV sNUM, -(SP) ; NUMBER TO BE TYPED 


;;CALL FOR TYPEOUT 
® 
;#4TYPOC-- -ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


;* 
;* 











; *CAL 
; MOV NUM, -CSP) ; ;NUMBER TO BE TYPED 
;* TYPOC 3;CALL FOR TYPEOUT 
$TYPOS: MOV ac SP),-(SP) 3;PICKUP THE MODE 
041531 MOVB i(CSP),$ ;;LOAD ZERO FILL SWITCH 
MOVB (SP)+,$ ;;NUMBER OF DIGITS TO TYPE 
- py a ) ;;ADJUST RETURN ADDRESS 
041531 $TYPOC: MOVB #1, $OF ILL 3;SET THE ZERO FILL SWITCH 
04153 MOVB #6, $OMODE+1 STSET FOR SIX(6) TpIGHTS 
i5 $TYPON: MOVB #5, $OCNT :3SET yA? ITERATION COUNT 
MOV R3,-CSP) 33 SAVE 
MOV R4,- =f 7 ;SAVE R4 
MOV RS, -CSP ;:SAVE RS 
bg ait 3;GET THE NUMBER OF DIGITS TO TYPE 
ADD 96 ,R4 SAVE ET re OSE MAX. ALLOWED 
MOVB R4, $OMODE 
MOVB  $0FILL,R4 
MOV 12(SP),R5 
CLR RS 
ar ae DO MSB 
2s: ag RS bp THIS DIGIT 
RS | 
% Be 
3$: ROL R ;;GET LSB OF THIS DIGIT 
DECB 331YPE THIS DIGIT? 
BPL 7$ 33BR IF 
BIC #177770,R3 33GET 
BNE 4S 33 1EST 
bea Ss ;78R IF YES 
33 
4$: INC R4 ;3;D0N’T SUPPRESS ANYMORE 0’S 





Die 


KXJ11-CA FUNCTIONAL TEST MACRO Y05S.02 Thursday 03-Apr-86 14:11 Page 145 
BINARY TO OCTAL (ASCII) AND TYPE 
041452 052703 000060 81S #'0.R3 ;;MAKE THIS DIGIT ASCII 
041456 052703 000040 S$: B15 $ .R3 ;;MAKE ASCII IF NOT ALREADY 
041462 110337 041526 MOVB -R3 BS 3;SAVE FOR TYP 
041466 104401 041526 TYPE  ,8$ 3360 TYPE THIS DIGIT 
041472 105337 041530 7$: DECB  $0CNT ;;COUNT BY 1 
041476 003347 BGT 2$ :;BR IF MORE TO DO 
1500 BLT 6$ ;;BR IF DONE 
041502 005204 INC R4 ;;INSURE LAST DIGIT ISN’T A BLANK 
041504 000744 BR 2$ 3360 DO THE LAST DIGIT 
041506 012605 6$: MOV (SP)+,R5 ;3RESTORE RS 
041510 012604 MOV (SP)+,R4 ;;RESTORE R4 
041512 012603 MOV (SP)+,R3 ;;RESTORE R3 
041514 016666 000002 000004 MOV 2(SP),4(SP) 33SET THE STACK FOR RETURNING 
041522 012616 MOV (SP)+,(SP) 
041524 RTI ; ;RETURN 
041526 000 8$ BYTE 0 ;;STORAGE FOR ASCII DIGIT 
041 000 ‘BYTE 0 ;; TERMINATOR FOR TYPE ROUTINE 
0415 000 $OCNT: .BYTE 0 ;;OCTAL DIGIT COUNTER 
041531 000 SOFILL: .BYTE 0 33 FILL SWITCH 
041532 000000 $ WORD 0 ;;NUMBER OF DIGITS TO TYPE 


Ei¢ 
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BINARY TO ASCII AND TYPE ROUTINE 


3492 
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-SBTTL BINARY TO ASCII AND TYPE ROUTINE 


jj EEREEEEEESSSESESESESESESSSESEREESEEEEEEEEEEEEEEEESEEESE4EEEERED 
BINARY NUMBER 


3;*THIS ROUTINE IS USED T 
; *BINARY-ASCITI 


CP! tL i: 

;* MOV 

:* TYPBN 

$TYPBN: MOV 
MOV 
SEC 

1$: 
ROL 
BEQ 
ADCB 
TYPE 
CLC 
BR 

2s: MOV 
MOV 
MOV 
RTI 

$BIN: -BYTE 


NUMBER , -( SP) 


Ri, -(SP) 
6(SP),R1 


#'O,$BIN 
R 


CHANGE A 16-BIT 
IT. 


TO A 16-BIT 
;;NUMBER TO BE TYPED 
;;1YPE IT 
3 SAVE Ri ON THE STACK 
THE INPUT 


s3SET “C" SO CAN KEEP TRACK OF 
;3SET wae ait TO AN ASCII “0”. 


THE NUMBER OF BITS 


or TER EQUAL TO THIS BIT 
;;CLEAR “"C” SO CAN KEEP TRACK OF BITS 

$3 THE NEXT BIT 

;;POP THE STACK INTO Ri 

;;ADJUST THE STACK 


;;RETURN TO USER 
;;STORAGE FOR ASCII CHAR. AND TERMINATOR 


Fle 
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TTY INPUT ROUTINE = 


5494 -SBTTL TTY INPUT ROUTINE 


jj FREREERESSSEEEEEAESEREE ESSE SE SESESESEESEEEEEESEEESEEEEEERERE RD 
-ENABL LSB 


5 5 E#EAEREEEEREESEEEESASERESEREEESESESEEEEEEESESEEEEEEEEEEEEEEERRE 
;*SOFTWARE SWIT CHANGE ROUTINE. 

;*#ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
;*#WHEN OPERATING IN TTY FLAG MODE. 


041610 022737 000176 001140 §$CKSWR: CMP #SWREG, SWR 3321S THE SOFT-SWR SELECTED? 
041616 001074 BNE 15$ ;;BRANCH IF NO 

041620 105777 137320 TSTB 3s @$ TKS >:CHAR THERE? 

041624 100071 BPL 15$ >31F NO, DON’T WAIT AROUND 
041626 117746 137314 MOVB = a$TKB, -(SP) ;;SAVE THE CHAR 

041632 042716 177600 BIC #+C177,(SP) ;7STRIP-OFF THE ASCII 
041636 022726 000007 CMP #7, (SP)+ 331S IT A CONTROL G? 
041642 001062 BNE 15$ ; ;NO, TO USER 
041644 123727 001134 000001 CMPB 4s« SAUUTOB,, #1 ;;ARE WE RUNNING IN AUTO-MODE? 
041652 001456 BEQ 15$ ;;BRANCH IF YES 

041654 104401 042345 TYPE  ,$CNTLG ;:ECHO THE CONTROL-G (tG) 
041660 104401 042352 $GTSWR: TYPE  *$MSUR ;;TYPE CURRENT CONTENTS 
041664 013746 000176 MOV SWREG, -(SP) ;:SAVE SWREG FOR TYPEOUT 
041670 104402 TYPOC 3360 TYPE--OCTAL ASCIICALL DIGITS) 
041672 104401 042363 TYPE ,$MNEW ;;PROMPT FOR NEW SWR 
041676 005046 19$: CLR ~(SP) ;:CLEAR COI 

041700 005046 CLR -(SP) ;;THE NEW SWR 

041702 105777 137236 7$: TSTB 3s AS TKS > ;CHAR THERE? 
041706 100375 BPL 7$ ;;1F NOT TRY AGAIN 
041710 117746 137232 MOVB = a$TKB,-(SP) ;:PICK UP CHAR 
041714 042716 177600 BIC $tC177, (SP) ;:MAKE IT 7-BIT ASCII 
041720 021627 000025 9$: CMP (SP), #25 33IS IT A CONTROL-U? 
041724 001005 BNE 10$ - IF 

1726 104401 042340 TYPE  ,$CNTLU ;3YES, ECHO CONTROL-U (tu) 
041732 062706 000006 20$: ADD , SP 331 PREVIOUS 
041736 000757 BR 19$ ;;LET’S TRY IT AGAIN 
041740 021627 000015 10$ CMP (SP), #15 33I1S IT A <CR>? 
041744 001022 BNE 16$ 
041746 005766 000004 TST 4(SP) 
041752 001403 BEQ 11$ 
041754 016677 000002 137156 MOV 2(SP), @SWR 

041762 062706 1$ ADD $6, SP 

041766 104401 001163 14$ TYPE $CRLF 

041772 12872 001135 000001 CMPB = $INTAG, #1 

042000 001003 BNE 15$ 

012777 000100 137134 MOV $100, a$TKS 

042010 000002 153 RTI 

042012 004737 040714 16$ JSR PC, $TYPEC 

042016 021627 CMP 





(SP), #60 
18$ 


iz 





Gle 


KX 
T 
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BGT 
BIC #60, (SP)-+ 
TST 2(SP) 
BEG 17$ 
ASL (SP) 
ASL (SP) 
ASL CSP) 
17$: INC 2(SP) 
BIS -2(SP), CSP) 
BR 7$ 
18$: TYPE » $QUES 
BR 20$ 
-DSABL LSB 


op EEAKEEEEAAEAAKEAESEAAECEREREKREAKEEESEEAKEESKERERECREREKAAKKESERERESR 


;*THIS ROUTINE WILL INPUT AS 
CALL: 


;*THIS ROUTINE WILL 

*CALL : 

& 

:¢ RETURN HERE 

3;* 

$RDLIN: MOV R3,-CSP) 

i$: MOV @$TTYIN,R3 
2s: CMP #$TTYINeS. ,R3 


INGLE CHARACTER FROM THE TTY 


se RDCHR ; INPUT A SINGLE CHARACTER FROM THE TTY 
; RETURN HERE ; CHARACTER IS ON THE STACK 
;* ;;WITH PARITY BIT STRIPPED OFF 
$RDCHR: MOV (SP),-C(SP) ;;PUSH DOWN THE PC 
000002 MOV 4(SP),2(SP) > SAVE THE PS 
1$ TSTB 3s a$ TKS $3 FOR 
BPL 1$ 3A CHARACTER 
000004 MOVB a$TKB,4(SP) ;;READ THE TTY 
000004 BIC #1C<177>,4(SP) ;;GET RID OF JUNK IF ANY 
000023 CMP 423 3318 IT A CONTROL-S? 
BNE 3 - IF NO 
2$: TSTB = @$ TKS ;;WAIT FOR A CHARACTER 
BPL 2$ 3 UNTIL ITS THERE 
MOVB = @$ TKB, -(SP) 33 
BIC #10177, (SP) ;;MAKE IT 7-BIT ASCII 
CMP (SP)+, 421 331S IT A CONTROL -Q? 
BNE ;;iF NOT DISCARD I 
BR i$ , 33;YES, RESUME 
000021 3¢: CMP —- 4( SP), #$XON +315 IT A RANDOM XON? ;RANOOL 
BEQ i$ ; ;BRANCH IF YES ;RANOO1 
000140 CMP 4(SP),@140 3:1S IT UPPER CASE? 
BLT 45 | 33 IF YES 
000175 CH 4(SP), #175 5318 IT as CHAR? 
3 
000004 BIC #40,4(SP) ;;MAKE IT UPPER CASE 
43: RTI 3360 BACK TO USER 
§ ERREKEARKAAAESERSESAAERKSESEAACKAERKACESEEASCAERESERESARASESEKEEESESE SEES 
INPUT A STRING FROM THE TTY 


;3INPUT A STRING FROM THE TTY 
;;ADDRESS OF FIRST CHARACTER WILL 
3; TERMINATOR WILL BE A BYTE OF ALL O'S 
3;;SAVE R3 


; ;GET 
;;BUFFER FULL? 


BE ON THE STACK 


Hie 


KXJ11-CA FUNCTIONAL TEST 
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000002 
000004 


10$: 
4$: 
3$: 


panne REELS TAL 


BLOS 


as 


(SP)+,(R3) 
#177 ,CR3) 


SP 
4(SP),2(SP) 
#$TTYIN, 4(SP) 


/*U/<15><12> 
/*G/<15><12> 
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aA 
: 


sages 3 


mae 
a & 


a8 


o> 


. 
; 
7 


g AR 
if 


S AND PUT ADDRE 
FIRST ASCII CHARACTER ON IT 


:;GO READ ONE CHARACTER FROM THE TTY 


g 


SS_OF THE 


; sRETURN 
Pe ey ASCIT CHAR. TO TYPE 


33C 
CONTROL "G" 


<15><12>/SWR = / 


/ NEW = / 


; 3 TERMINA 
;sRESERVE 8 BYTES FOR TTY INPUT 
ONTROL “U" 


Liz 
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FROM THE TTY -” —_ 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


jj EERSEERSESESESSESESESEEESEEEEEEEEEES485000604000000004040000000008 
;*THIS ROUTINE WILL READ AN OCTAL CASCII) NUMBER FROM THE TTY AND 
s*CHANGE IT TO BINARY . 

;*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
;#OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?° WILL BE TYPED 
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. COMPLETE NUMBER MUST 
;*THEN RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 


* RDOCT 


;* ;;READ AN OCTAL NUMBER 
;* RETURN HERE ;7LOW ORDER BITS ARE ON TOP OF THE STACK 
3* 3 ORDER BITS ARE IN $HIOCT 


011646 $RDOCT: MOV (SP), -(SP) ;;PROVIDE SPACE FOR THE 
016666 000004 000002 MOV 4(SP},2(SP) ; ; INPUT 
010046 MOV RO, -(SP) ;;PUSH RO ON STACK 
010146 MOV Ri, -(SP) ;;PUSH R1 ON STACK 
010246 MOV R2,-(SP) ;;PUSH R2 ON STACK 
04412 1$: RDLIN ;;READ AN ASCIZ LINE 
12600 MOV (SP)+,RO ;;GET ADDRESS OF 1ST CHARACTER 
010037 042522 MOV RO,5$ ;;AND SAVE IT 
5001 cLR RL ;;CLEAR DATA WORD 
112046 2$: MOVB  (RO)+,-(SP) ;s;PICKUP THIS CHARACTER 
1420 BEQ 3$ 3;1F ZERO GET 
122716 000060 CMPBséd#'0, (SP) ;;MAKE SURE THIS CHARACTER 
302 BGT “ 331S AN OCTAL DIGIT 
122716 000067 CMPBs«é#' 7, (SSP) 
002423 BLT 4$ 
006301 ASL Ri 53%2 
006102 ROL R2 
006301 ASL R1 5344 
906102 ROL R2 
006301 ASL Ri 33%8 
006102 ROL R2 
042716 177770 BIC $07, (SP) ;;STRIP THE ASCII JUNK 
062601 ADD (SP)+,R + sADD IN THIS DIGIT 
000756 BR 23 ;LOOP 
005726 3$: TST (SP)+ * CLEAN TERMINATOR FROM STACK 
010166 000012 MOV R1,12(SP) STSAVE THE RESULT 
010237 042532 MOV R2, $HIOCT 
12602 MOV (SPs, ;;POP STACK INTO R2 
012601 MOV SP)+,R1 ;:;POP STACK INTO Ri 
012600 MOV (SP}+,RO 13 POP STACK INTO RO 
000002 RTI : 
003726 4$: TST (SP)+ SICLEAN PARTIAL FROM STACK 
105010 CLRB CRO) $3 A | 
104401 TYPE 33;TYPE UP THRU THE BAD CHAR. 
000000 S$: .WORD 0 
104401 001162 TYPE  ,$QUES 33°?" “CR” & “LF” 
000730 BR i$ 33 TRY 
000000 $HIOCT: .WORD 0 ;;HIGH ORDER BITS GO HERE 





Jle2 
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-SBTTL APT COMMUNICATIONS ROUTINE 


043000 $ATY1: MOVB 
042776 ‘$ATY3: a 
043000 $ATY4: MOVB 
$ATY 
MOV 
MOV 
TSTB 
BEQ 
001206 CMPB 
BNE 
001207 BITB 
BEQ 
MOV 
000004 ADD 
1$: TST 
BNE 
MOV 
2s: TSTB 
BNE 
SUB 
ASR 
MOV 
001166 eg 
042710 3%: MOV 
000004 ADD 
MOV 
JSR 
4$: . WORD 
5$§: 
10$: TSTB 
BEQ 
TST 
BEQ 
11$: TST 
BNE 
001170 MOV 
000004 ADD 
CLRB 
MOV 
MOV 
RTS 
$MFLG: .BYTE 
$LFLG: .BYTE 
$FFLG: 


$ATYC 
#1,$FFLG 


RO, -(SP) 
Ri, -(SP) 
$MFLG 


S$ 
#APTENV , $ENV 


4(SP), $FATAL 
$2,4(5P) 


$FFLG 
$LFLG 
$MFLG 
(SP )+,R1 
(SP )+,RO 


Coos 


ss SESSSSESSSESSSSSSSSSSSSSSSESESSSSSSSSeSoSSS‘eSSoSSeSSSCSSESESS 
G REPORT FATAL ERROR 


3310 ONLY REPORT FATAL ERROR 


; ;PUSH ON S 

;;PUSH R1 ON STACK 

35 TYPE A MESSAGE? 
331F NOT: BR 

gs TING UNDER APT? 
331F NOT: BR 

33 SPOOL MESSAGES? 
3;1F NOT: BR 

33 oy ily sak 


RETURN ADDR. 
;;SEE IF ‘bone W/ LAST XMISSION? 
#3 TF NOT: 
SUT ADGR IN- MAILBOX 
;TFIND END OF MESSAGE 


;;SUB START OF MESSAGE 

;;GET MESSAGE LNGTH IN WORDS 
$3 LENGTH IN MAILBOX 
;;TELL APT TO TAKE MSG. 

;3;PUT MSG a IN JSR LINKAGE 


RETURN ADDRESS 
; ;PUSH 17716. ON STACK 
;;CALL T MACRO 


;;SHOULD REPORT FATAL ERROR? 
33iF NOT: 
RUNNING 


11GET ERROR @ 

RETURN ADDR. 
» TELL ato TO TAKE ERROR 
;;CLEAR FATAL FLAG 


POP STACK INTO Ri 
; POP STACK INTO RO 


: , FATAL FLAG 





K1e 
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TRAP DECODER _ 
5500 .SBTTL TRAP DECODER 


gp EEFSEESESSEAESEKRSESESSASAE EASES ESESSESEESSEAEESEEEESEREEESEREREEEESD 


;*#THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
; THROUGH THE 


;*AND USE IT TO INDEX TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS IT WIL 
;#G0 TO THAT ROUTINE. 

043002 010046 $TRAP: MOV RO, -(SP) ;;SAVE RO 

043004 016600 000002 MOV 2(SP),RO ;;GET TRAP ADDRE 

043010 005740 TST -(RO) ; ;BACKUP BY 2 

043012 111000 MOVB CRO) ,RO ;;GET RIGHT BYTE OF TRAP 

043014 006300 ASL RO ;;POSITION FOR INDEXING 

043016 016000 043036 MOV $TRPADCRO),RO ;;INDEX TO TABLE 

000200 RTS RO ;3G0 TO ROUTINE 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


043024 011646 $TRAP2: MOV (SP),-CSP) ;;MOVE THE PC DOWN 
043026 016666 000004 000002 MOV 4(SP),2(SP) ;;MOVE THE PSW DOWN 
043034 000002 RTI ;s;RESTORE THE PSW 


-SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE “TRAP” INSTRUCTION. 


ROUTINE 
043036 043024 STRPAD: .WORD  $TRAP2 
040502 STYPE ;;CALL=TYPE |‘ TRAP+1(104401) TTY TYPEOUT ROUTINE 
043042 041332 $TYPOC ;;CALL=TYPOC 26104402) TYPE OCTAL NUMBER (WITH LEADING. ZEROS) 
041 $TYPOS ;;CALL= TRAP+3( 104403) TYPE NUMBER (NO LEAD rs 
041 STYPON ;;CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER CAS PER LAST CALL 
043050 041036 TYPOS s:CALL=TYPDS  TRAP+5(104405) TVPE DECIMAL NUMBER (WITH SIGN) 
043052 041534 STYPBN ;;CALL=TYPBN  TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 
043054 041660 SGTSWR ;;CALL=GTSWR  TRAP+7(104407) GET SOFT-SWR SETTING 
043056 041610 SCKSWR :sCALL=CKSWR —TRAP+10(104410) TEST FOR CHANGE IN SOFT-SUR 
043060 042072 ROHR; ;CALL*ROCHR — TRAP+11¢ 104411) TTY TYPEIN CHARACTER ROUTINE 
043062 042222 $RDLIN ,,CALL*RDLIN  TRAP+12 104412) TTY TYPEIN STRING ROUT 
043064 042374 $RDOCT ;;:CALL=RDOCT | TRAP+13(104413) READ AN OCTAL NUMBER TTY 
$508 oases 043076 I$$SWR ;;CALL=I$SWR  TRAP+14(104414) GET INITIAL SWITCH OPTIONS 
5503 043070 043740 TSSNAME i ;CALL=TSNAME — TRAP+15(104415) PRINT TEST AND TITLE 
043072 044046 AS$MAIL ;;CALL=A$MAIL  TRAP+16(104416) UPDATE ARBITERS APT MATL -BOX 
S505 oa8Ork | OSeaae IOP$$TR ,:CALL=I0P$TR | TRAP+17(104417) IOP INTERRUPT HANDLER 





Lie 
5507 
5508 

509 


5510 
5511 043076 
76 


5 il2 
ants 043114 


112737 
00000 
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000042 
001206 
050746 
043152 


: 
o 
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000001 
000001 


5 FSSSSSASESESESEKESSSESESESEKSSASSESSESSASSASHEEARSSSSRSARSRSEKERERE REE EEEEREREEEEE ERED 
Y 


; ROUTINE TO CHECK OPERATING MODE AND ADJUS -UP_ ACCORD 
; IF STAND-ALONE, DISPLAY SWITCH OPTIONS AND GET INITIAL SWR. 


I$$SWR: 

TST ar42 

BNE 7$ ; BR IF CHAINED UNDER XXDP/ACT. 

SENV , #APTENV 

BEG $ ; BR RUNNING 

CMP Oe IOPCNT , #1 ; ARE THERE MULTIPLE UNITS? 

BGT 8$ ; BR IF MORE THAN UNIT 

TYPE » SWROPT ; DISPLAY SUPPORTED SWITCHES. ;FxC 
1$: — as ; GET INITIAL SWITCH SETTING 


5 ERREEAEAAEREEEEEEEEAESEESEERERSESEEREREEESEREREREREREERERERE EERE SERRE SESE REESE 
; $QDLY FOR APT MODE DOUBLED FROM 62. TO 248. TO DECREASE TIMEOUT 

; ERROR WHILE APT IS MONITORING. JEANELL CUNNINGHAM, 30 MAY, 1984. 

; “aa ar Cate at Ga rane 


6$: MOV #248. ,$QDLY ; APT MODE -- SET Q-DELAY FOR 40 SE 
7$: MOVB #1, $AUTOB ; APT OR CHAINED -- SET AUTO-MODE FLAG. 
$ RTI ; URN. 
SWROPT: .ASCII <CRLF>‘'SWR OCTAL FUNCTION’ 
-ASCII <CRLF>’--- ----- -------- 
-ASCII <CRLF>’ 15 100000 HALT ON ERROR’ 
-ASCII <CRLF>’ 14 040000 INHIBIT ERROR SUMMARY’ 
-ASCII <CRLF>‘ 13 020000 INHIBIT ERROR REPORTS’ 
-ASCII <CRLF>‘ 12 010000 IOP ID# 15 KNOWN GOOD FOR TESTING’ 
.ASCII <CRLF>’ 11 004000 TEST STAND ALONE IOP’ 
.ASCII <CRLF>’ 10 002000 ENABLE EXTENDED MEMORY TESTS’ 
.ASCII <CRLF>' 09 001000 LOOP ON 
-ASCII <CRLF>' 08 000400 LOOP ON TEST IN SWR<6:0>' 
-ASCII <CRLF>' 07 000200 INHIBIT TEST NUMBER/TITLE’ 
“EVENS oo. 


Mie 
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5543 

5544 

5545 

5546 

5547 

5548 

5549 

5590 043740 
5551 043744 
Sie 0437 
55535 043754 
5554 04376 
5555 043770 
5556 04377 
395/ 043776 
5558 


sack 044026 
5965 044034 
5564 044040 
5565 044044 
5566 
5567 
5568 
5569 
sEsy 
71 044 
S572 044046 
; 73 944054 
74 044056 
5575 044064 
sas8 
557 
sa46 
79 044066 
: 0 044072 
1 044076 
3 044100 
: 044104 
044110 
mf sa 
5 baaise 
9 044) 
0441 
91 0441 
044142 
) 
} 
) 
bs) 


g 


032777 
4 


013705 
04270 


050537 
012705 


000340 
001206 


177524 
177417 


001172 
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135340 
135332 
135150 


000002 


135264 
000001 


5 S8S4EEEEEESEEEEEESESEEEEESESESEEEEEEEE SEES SEEKS EESEEEEEEEERE EERE EEREEEOERERE 
; ROUT T T _ 

; ALSO, SETS TEST NUMBER IN CPU LEDS. 
; IF SWR<7> = 1, DON’T PRINT ANYTHING. 


; CALL: T$NAME, TXT-ADDRESS 
T$$NAME: CALL TNLEDS ; PUT CURRENT TEST NUMBER IN LEDS 
ASMAIL ; UPDATE ARBITERS COPY OF $MAIL 
BIC #B1T11,a$CSR ; CLEAR RESET FLAG. sFX8UC 
BIS $B1T10,a$CSR § ; SET TRAP ON Q-BUS RESET ENABLE. sFXBUC 
BIT $B117, aSUR 
BNE 4 ; BR IF TITLES SUPPRESSED.. 
MOVB § $TSTNM,(PC)+  ; OTHERWISE, SAVE THE NUMBER.. 
i$: WORD 0 ;...HERE. 
TYPE ,30069$ ;;TYPE ASCIZ STRING 
BR 30068$ 3 THE ASCIZ 
; ;30069$ “ASCIZ <CRLF>/TEST / 
30068$ : 
MOVB = $TSTNM, -( SP) 
TYPOS ,2!WLZ ;...AND NUMBER. 
3$: MOV ac SP),2(PC) ; SET TITLE ADDRESS... 
TYPE 0 ;...AND TYPE IT TOO. 
4s: ADD #2,(SP) ; ADJUST RETURN PC... 
RTI ;...AND 
8 "ROUTINE TO COPY SLAVE MAILBOX UPLLINE 10 TE ARSITCR 
; ROUTINE TO COPY SLAVE MAILBOX UP-LINE TO THE ARB 
; BYPASS IF SBC IS NOT A SLAVE (ID 1 OR 0) OR NOT APT MODE. 
A$sMAIL: 
BIT 3<16eB1T4>,O¢TCID 5 IF ID 0 OR 1.. 
BEQ B$ .DON'T BOTHER. sFX9UC 
CMPB so $ENV, @APTENV _—s;_'if NOT RUNNING UNDER APT.. sFX9JC 
BNE 8$ DITTO. x9 


"a 3F 

5 RARE REE AE EE RRRRR ERE EERE EERRE RRR EERE EEE 
; NOW COMPUTE A CHECKSUM ON THE MAILBOX. 3sFX9 

; : 


MOV @OK2CSRC,RS ;GET THE IOP ID NUMBER 
BIC #tC360,R5 ; MASK OFF OTHER BITS 
S ;SWAP BYTES 
BIS R5, $TESTN ‘PUT IOP ID CODE IN MAIL BOX SO THAT WE KNOW 
sWHICH IOP IS REPORTING THE ERROR 
MOV #16. RS YTE IN RS. ;FX9UC 
MOV @$MAIL ,R4 ; STARTING ADDRESS_ IN FX9UC 
CLR CHKSUM ; CLEAR OR Non CHECKSUM ;FX9UC 
is: MOVB (R4)+,R3 ; GET A BYTE IN R3. sFX9JC 
BIC $tC377,R3 ; STRIP HIGH BYTE IN R3. sFX9UC 
ADD R3, CHKSUM ; OPERATE ON THE BYTE. sEXQUC 
ASLB CHKSUM ; 3FX9 
ADC CHKSUM ; sFX9UC 
SOB R5,1$ ; LOOP UNTIL DONE. sFX9UC 
; Routine has been modified to ond 15 "tZ"'s if wait constant 
; expired and "tZ” was not from arbiter or if “NACK” has 


echoed 
; been received. After the third not echoed "tZ” the program still 





Neen eee eee eee ee ieee eee EE at Gees * ae 
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TRAP TABLE _ 
peed $ hangs in a wait loop. KXTFXD 17-Sep-84 
5599 044144 012737 000017 044312 MOV #17, ; COUNTER FOR 15 "tZ"'s 
5600 044152 012746 000032 2$: MOV #32,-(SP) ; SLAVE N APT MOCE - 
5601 044156 004737 040714 200$: CALL $TYPEC Wane <tZ>. 
5602 044162 012705 177777 101$: MOV #177777, RS ; WAIT CONSTANT FOR’ "tz" 
5603 044166 105777 134752 22$: STB  a$TKS ; WAIT FOR ARB TO ECHO <tZ> 
5604 044172 100405 BMI 102$ ; 
5605 044174 077504 SOB R5,22$ ; WAIT UNTIL DELAY EXPIRED 
5606 044176 005337 044312 DEC CNTZ ; DECREMENT "tZ* COUNTER 
5607 044202 001365 BNE 200$ ; IF NOT 15 TIMES ONE MORE 
044204 000777 BR : ; OTHERWISE STAY TAY EN Ae WAIT FOREVER 
044206 117703 134734 102$: MOVB a$TKB,R3 ; GET BYTE IN R3. 
5610 044212 120327 000032 CMPB  =s-« R3,, #32 ; WAS IT THE <tZ>? 
5611 044216 001363 BNE 22$ ; NO, FOR I 
044220 012704 001166 3$: MOV $$MAIL .R4 ; 
5613 044224 012705 000020 MOV #16. ,R5 ; 
5614 044230 112416 4$: MOVB  (R4.)+, (SP) ; GET A BYTE 
5615 044232 004737 040714 CALL TYPEC ; ... SEND IT 
5616 044236 077504 SOB 43 ; ETC. 
5617 044240 113716 044310 MOVB - CHKSUM, (SP) ; THEN PUSH CHECKSUM 
5618 044244 004737 040714 CALL § $TYPEC ; ... AND 
5619 044250 005726 TST (SP)-+ ; FIX STACK. . 
5620 044252 105777 134666 S$: TSTB 3s A$ TKS ; WAIT FOR CHARACTER TO COME BACK. 
5621 044256 100375 BPL S$ ; 
5622 044260 017705 134662 6$: MOV a$TKB,RS ; GET THE CHARACTER IN RS. 
5623 044264 120527 000006 CMPB sé’, @ACK ; TRANSFER CORRECT? 
5624 044270 001404 BEQ 7% ; 2 
25 044272 120527 000025 CMPB sR’, @NACCK ; DID ARBITER SEND NACK? 
26 044276 001725 BEQ 2$ ; Y ‘ 
5627 044300 000764 BR 5$ ; FOR ACK OR NACK 
5628 044302 005037 001166 7$: CLR $MSGTYPE ; SAY “ARBITER'S MAILBOX HAS BEEN 
? ‘a ED” 
5630 044306 000002 8$: RTI ; ... AND WE'RE DONE 
S632 044310 000000 CHKSUM: .WORD 0 
5633 044312 000000 CNTZ:  .WORD O ;COUNTER FOR "tz"'S 


B13 
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5635 


S2 


004737 
raphe 

007 
113737 
737 
000 
008777 

777 
100002 
000000 
104410 
032777 
001402 
013716 


001000 
001110 


134610 
001116 
001114 


001116 
001116 


103 


134366 
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.SBTTL ERROR HANDLER ROUTINE 
gp FESO 949450560605 F546 5646085080555 5F60954640 646655844 EEEES EEE ERE 
be ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
;*SAVE THE ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO ERHAN ON 
3; *THE _ fog PROVIDED BY THIS ROUTINE ARE 
* 
a 1 LOOP ON ERROR 
* ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
CKSWR ;;TEST FOR CHANGE IN SOFT-SWR 
7$: INCB $E€RFLG 33SET THE ERROR FLAG 
BEQ 7§ ;DON’T LET THE FLAG GO TO ZERO 
HOY $TSTNM, SDISPLAY ;;DISPLAY TEST NURBER AND ERROR FLAG 
MOV «(SP), $ERRPC —« sGET ADDRESS OF ERROR INSTRUCTION 
SUB SERRPC 
MOVB  @$ERRPC,$ ;;STRIP AND SAVE THE ERROR ITEM CODE 
CMP (SP), #1002 ;31F RETURN PC LESS THAN 1002 
BHI 12$ ERROR IS ILLEGAL TRAP 
; PROCESS UNEXPECTED TRAP OR 
MOV 4(SP),$ERRPC _ ;;GET PC AT TIME OF FALSE TRAP 
SUB #2, $ERRPC ; ADJUST PC 
TYPE ,10$ ;3TYPE HEADER 
MOV $ERRPC,-(SP)  ;;SAVE $ERRPC FOR TYPEOUT 
TyPoc sii 3360 TYPE--OCTAL ASCIICALL DIGITS) 
SUB $4, (SP) ;:;GET FALSE TRAP VECTOR ADDR 
MOV (SP), $ERRPC 
MOV $ERRPC, -(SP ;sSAVE $ERRPC FOR TYPEOUT 
Typoc ae 3360 TYPE--OCTAL ASCIICALL DIGITS) 
cw {SP )+.(SP)s ;;POP FALSE TRAP VECTOR PCEADDR 
10$: -ASCIZ <200>'PC= ’ 
ils: -ASCIZ ‘UNEXPECTED TRAP TO ‘ 
12¢: 
a JSR PC, ERHAN ;;G0 TO USER ERROR ROUTINE 
" CMPBOs«@APTENV,SENV._; IN APT 
MOVe —«SETEMB, 218 M0 SKI ANUMBER AS ERROR NUMBER 
JSR «PC, SATY4 ORT EATAL ERROR FO APT 
21%: . BYTE 0 
‘BYTE 0 
223: BR 22$ 
28; TST @SWR 
BPL 33 
HALT 
CKSWR 
3$: grt #B1T09, @SWR 
MOV $LPERR, (SP) 








wm 
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ERROR HANDLER ROUTINE 
044560 005737 001160 4$: TST $ESCAPE ;;CHECK FOR AN ESCAPE ADDRESS 
044564 00 BEQ 5$ ;;BR IF NONE 
Osaees 013716 001160 - MOV SESCAPE , (SP) ;;FUDGE RETURN ADDRESS FOR ESCAPE 
044572 022737 040116 000042 CMP #$ENDAD , 8642 ;;ACT-11 AUTO-ACCEPT? 
044600 001001 BNE 6$ 33 IF NO 
044602 000000 HALT 33 
044604 6$: 
044604 000002 RTI ; ;RETURN 
sens 34/41/4441444/144/7/7/7//7 QERLAY PATCH \\A\AAAAAAAAAAAAAAAAAAAAAALAAAAAAAAAAAY 
3 
5678 ; PATCH SERROR TO UPDATE ARBITERS MAIL-BOX IF NECESSARY 
5659 ; BEFORE TAKING THE APT-ERROR-STALL. 
5640 3 
Prot: 044606 SVPC-. 
¢ 044530 .=22$ ; BACK UP TO THE “APT-ERROR-STALL’”... 
5043 044530 000426 BR 222$ ;...AND CHANGE IT. 
se4z tear . =SVPC 
044606 017746 134502 222$: MOV asCSR, -CSP) ; SAVE PRIMARY CSR (FOR DEBUG)... 
5647 044612 000005 RESET ;...AND RESET TO ENSURE THERE AREN'T... 
8 ‘er Q-BUS INTERRUPTS LEFT HANGING 
9 044614 012777 002000 134472 MOV #2000, 3$CSR ; RE-ARM TRAP ON Q RESET 3FX8UC 
seer 044622 1044 § A$MAIL ; UPDATE ARBITERS $ 
1 044624 0007 BR F ;...AND STALL HERE !! 
5652 044626 000741 BR 2$ 


D13 
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ERROR HANDLER ROUTINE 

54 3 
5655 ; ERROR SIGNATURE HANDLER. 
5656 ; LOG THE NUMBER OF OCCURENCES OF EACH ERROR IN “ELOG". 
5657 ; IF SWR<13>=0, PRINT A COMMON HEADER AND A BASIC ERROR MESSAGE 
5658 ; AND FINISH UP IN ONE OF SEVERAL SIGNATURE FORMAT SUBROUTINES. 
5660 044630 010046 ERHAN: MOV RO, -(SP) ; SAVE RO. 
5661 044632 113700 001114 MOVB $$ITEMB,RO ; NUMBER. . . 

044636 006300 ASL RO ;...SHIFT UP TO WORD OFFSET 

5663 044640 005260 051034 INC ELOG(RO) ;...AND TALLY THIS 
5664 044644 042737 100000 001112 BIC #81T15,$ERTTL ; KEEP TOTAL ERROR COUNT POS 
5665 044652 032777 020000 134260 BIT #81113. aSWR ; S INHIBITED ?? 
5666 044660 001037 BNE ERXIT ; BR IF 
5668 044662 CLR -(SP) 
5669 044664 113716 001114 MOVB  $ITEMB, (SP) ERROR 
5670 044670 104401 044764 104403 1%: TYPE ,€Hi , TYPOS ,3!WLZ ; PRINT ERROR NUMBER 
5671 044700 113746 001102 MOVB § $TSTNM,-(SP) | ;PUSH TEST 
5672 044704 104401 044774 104403 TYPE  ,E€H2 , TYPOS ,2!WLZ ;PRINT TEST NUMBER 
5673 044714 013746 001116 MOV $ERRPC,-(SP)° ; PUSH PC 
5674 044720 104401 045006 104402 TYPE  ,E€H3 ,TYPOC ;PRINT PC. 
5675 044726 104401 001163 TYPE $CRLF 
367 044732 005737 0447 TST EMPRE 

77 044736 001402 +6 
5678 044740 104401 TYPE 
5679 044742 000000 EMPRE: 0 ; PRINT ERROR PREFIX CIF ANY)... 

044744 104401 TYPE 

1 044746 000000 EMADR: 0 ;...THE BASIC ERROR MESSAGE... 
5682 044750 004737 CALL a(PC)- 
5683 044752 000000 ESADR: 0 ;...AND THE FORMATTED SIGNATURE. 
3684 044754 104401 001163 TYPE ,$CRLF 
5686 044760 012600 ERXIT: MOV (SP)+,RO ; RESTORE... 
3687 044762 000207 RTS PC ;...AND RETURN TO $ERROR. 

9 0447 200 105 122 EHL: .ASCIZ <CRLF> 


ZERROR / 
040 111 116 Ete: -ASCIZ / IN TEST / 
seas 045006 040 101 124 EHS: -ASCIZ / AT PC / 
569 -EVEN 
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ERROR HANDLER ROUTINE 
5694 3 
5695 ; SUBROUTINE TO PRINT AN END-PASS ERROR SUMMARY. 
3696 ; SUPPRESSED IF SWR<14> = 1 OR NO ERRORS LOGGED. 
5698 ; DISPLAY PC, ERROR NUMBER, AND THE NUMBER OF OCCURRENCES. 
5700 045016 032777 040000 134114 ESUMRY: BIT $8114, aSWR 
5701 045024 001051 BNE 4$ ; DON'T IF SUPPRESSED... 
5702 045026 005737 001112 TST $ERTTL 
5703 045032 001446 BEQ 4$ ;...0R IF THERE AREN'T ANY ERRORS. 
5705 045034 104401 045152 TYPE  ,ESUMI ; PRINT HEADING. 
5706 04 012700 051034 MOV $EL0G,RO 
5707 045044 012701 000225 MOV #ELOGN,R1 
5708 04 710 1$: TST ) ; ERROR N HAPPEN 27 
5709 045052 001434 BEQ ; BR IF NOT 
5710 045054 011046 MOV (RO), -(SP) ; PUSH NUMBER OF HAPPENINGS. 
5711 045056 010002 MOV RO ; ERROR LOC... 
5712 045060 162702 051034 SUB SEL0G,R2 patie oo 
5713 045064 00620 ASR ;... 7 2 = ERROR NUMBER 
5714 04 0527 BIS . ; MAKE <EMT+N>. 
5715 045072 012703 002456 MOV STRAPE.R3 
5716 045076 022302 2$: CMP (R3)+,R2 FIND THE ERROR CALL 
717 045100 001376 BNE $ 
5718 045102 743 TST -(R3) 3... -2 = ERROR PC 
19 045104 010346 MOV R3, -(SP) ; PUSH ERROR PC. 
5720 045106 042702 104000 BIC R2 
5721 045112 010246 MOV R2,-(SP) ; PUSH ERROR NUMBER. 
3186 045114 104401 045203 104403 TYPE ,TABOS ,TYPOS ,3!WLZ ; PRINT ERROR NUMBER 
5724 04 124 104401 046131 104402 TYPE ,SPAC4 .TYPOC ; 3 
5725 0451 32 104401 046131 104405 TYPE  ,SPAC4 ,TYPDS ;...AND NUMBER OF HAPPENINGS 
726 045140 104401 001163 TYPE $CRLF 
72 144 005720 3$: TST (RO)+« 
5728 045146 077140 S0B R1,i$ 
5729 045150 207 4: RETURN 
1 045152 200 O11 ESUM1: .ASCII <CRLF><i1> 
5732 045154 105 122 122 “ASCIZ /ERROR PC‘ TIMES/<CRLF> 
; NNN PPPPPP N 
34 045203 O11 040 000 TABO9: -ASCIZ <11><40> 





ee 
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5737 

5738 

5739 

5740 045206 
sa 045206 
L$ 045210 
5744 045214 
5745 045220 
5747 045230 
P) 045234 
5749 045242 


5760 045306 
oe Saat 
oa 





001163 
045230 
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001120 
104402 


000002 


104402 
104402 


104402 
104402 


104402 
104402 


104402 


104405 


EF1i: 
NOSIG: RETURN 
EF2: TYPE 
CALL 
BR 
LAI6M2: SUB 
LAi6: MOV 
TYPE 
RETURN 
EFS: TYPE 
CALL 
BR 
GA22: CALL 
MOV 
MOV 
TST 
BPL 
ADD 
i$: ROL 
TYPE 
TYPOS 
TYPOS 
RETURN 
EF4: MOV 
MOV 
TYPE 
TYPE 
TYPE 
RETURN 
EFS: 
EF6: MOV 
MOV 
MOV 
MOV 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
RETURN 
EF7: MOV 
MOV 
TYPOS 
TYPE 
RETURN 
EF8: MOV 
MOV 


A2GA 
GALO, -(SP) 
GAHI, - ) 
ac sP) 
#681T15,2(SP) 
(SP 


see 


cx 


: 


a a 
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; SUBROUTINES TO ASSEMBLE AND PRINT VARIOUS ERROR SIGNATURES. 


SOME HAVE NO SIGNATURE AT ALL. 


A 16 BIT ADDRESS WITH GOOD/BAD DATA. 


; FOR POST-INCR ADDRESSES. 
; A 16 BIT (LOCAL) ADDRESS. 


A 22 BIT ADDRESS WITH GOOD/BAD DATA. 


CONVERT FROM A 16 BIT VIRTUAL (Ri). 


ADDR<15> SET ?? 
SKIP IF NOT, "C" = 0... 
_.ELSE CLEAR IT, "C" = 1. 


; PRINT ADDR<21:15> 
; PRINT ADDR<14:00> 


GOOD/BAD DATA. 


UNUSED. 
SRC-ADDR-DATA/DST-ADDR-DATA. 


PRINT OR... 
..AND PC AT TIME OF TRAP. 


G13 
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794 045510 
5795 045516 


5797 045520 
798 045524 
5799 045530 

534 





045735 
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104405 


EFS: 


EF 10: 


EFii: 


EFi2: 


TYPE 
RETURN 


} BITS AND PIECES USED BY THE FORMATTERS. 


»RECD .TYPDS  ;...GOT THIS MANY. 
$BDADR,-(SP)  ; INTERRUPT SEQUENCE (VECTOR) ERROR. 
$GDADR , -( SP) 

;VEXPD ,TYPOS ,3!WLZ =; EXPECTED VECTOR... 

"RECD .TYPOS ,3!WLZ ;..-RECEIVED VECTOR. 
$BDDAT,-(SP)  ; 7201 OR 8036 BYTES RECEIVED... 
$GDDAT,-(SP)  ;...AND TRANSMITTED. 


3; SENT THIS MANY... 
;...AND GOT THESE BACK. 


; 7201 EXTERNAL OR SPECIAL STATUS. 


‘BXMTD ,TYPDS 
, , TYPDS 


$BDDAT +4, -(SP) 


$BDDAT+2,-CSP) 

» CRLF 

. »TYPOS ,3!WLZ ; OBSERVED SRO... 
,OSR1 ,TYPOS ,3!WLZ ;..-AND SR1. 


$BDDAT+2,-(SP) ; 7201 MODEM STATUS SROC(B)... 
$BDDAT , -C SP) ;...AND SROCA). 


; OBSERVED SROCA)... 


"OSROA ,TYPOS ,3!WLZ 
;..-AND SROCB). 


,OSROB ,TYPOS ,3!WLZ 








ee, rs 


H13 
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ERROR HANDLER ROUTINE - 
5844 $ 
5845 ; BASIC ERROR MESSAGES. 
5847 046140 104 103 112 DCJDM: .ASCIZ /O0CJ11 BASE INSTRUCTION TESTS/ 
5848 946175 123 105 114 STF: -ASCIZ /SELF-TEST FAILURE/ 


5849 
5850 046217 125 116 105 UNXT: .ASCIZ /UNEXPECTED TRAP THRU 1 haa / 
5851 046254 102 125 123. CSRE: .ASCIZ /BUS TIME-OUT AT KXCSR / 


58 2 
5854 046303 102 125 123 CLKi: .ASCIZ /BUS TIME-OUT AT LINE CLOCK / 
5855 046337 103 114 117 Cike: .ASCIZ /CLOCK INTERRUPT NOT MASKED AT LEVEL 6/ 
103 114 117 CLK3: .ASCIZ /CLOCK INTERRUPT NOT RECEIVED/ 
eH 046442 103 101 116 CLK4: .ASCIZ /CAN‘'T DISABLE CLOCK INTERRUPT/ 
5859 046500 102 125 123 DPRi: .ASCIZ /BUS TIME-OUT AT LOCAL DPR / 
04 120 122 ha /DPR LOCAL WRI ERROR/ 
5861 046566 124 111 115 DPR3: .ASCIZ /TIME-OUT (EOP) ON Q-BUS READ AT DPR / 
5862 0466 Ss /NON-ZERO DATA ON Q-BUS READ/ 
5863 046700 103 117 115 DPRS: #$.ASCIZ /COMMAND INTERRUPT (DPRO) DIDN'T HAPPEN (OR DOESN'T WORK)/ 
5864 046771 040 DPR6: .ASCII /NO / 
5865 046774 124 111 115 DPR7:  .ASCIZ /TIME-OUT CEOP) ON Q-BUS WRITE TO DPR / 
ance 047042 111 116 124 a -ASCIZ /INTERRUPT RECEIVED WITH DPR DISABLED/ 


586 : 
5868 047107 104 120 122 DPR9: .ASCIZ /DPRXX INTERRUPT NOT RECEIVED/ 
aB55 047144 101 122 102 DPR10O: .ASCIZ /ARBITER WRITE TO DPR (WORD 15) FAILS/ 


5871 ‘CONSOLE SERIAL LINE ERROR MESSAGES 
5873 047211 «13002Sf/s«aS)Ssi«‘ia2s«SLX: = WASCIZ /XMTR / 
5874 047217 + +2«122—Sté<“‘z2S:*~SC«dH OSLO: «CA 


: .ASCIZ /RCVR / 
875 047225 111 116 124 Sli2: .ASCIZ /INTERRUPT NOT MASKED RY LEVEL 4/ 


876 roll sg 111 116 124 SLI3:  .ASCIZ /INTERRUPT NOT RE 
5877 047 a 122 105 121 SLI4: .ASCIZ /REQUEST STILL ACTIVE AFTER “IACK"/ 
th 0473 122 105 103 SLIS:  .ASCIZ /RECEIVED DATA INCORRECT/ 

80 047406 102 125 123. NEC1: .ASCIZ \BUS TIME-OUT AT SYNC/ASYNC COR 18254) \ 
5881 fhe 070 060 060 NECe: . /B00HZ - Tee (8254 TIMER 2) NOT RECEIVED/ 
Seat 047531 103 110 101 NECCM: . /CHAN X ( Cd) / 

S384 047341 NEGH=  NECOHB. 
885 047551 103 110 101 NECDM: .ASCIZ pn R SYNC-DMA) / 
ety 047574 104 101 124 NECS: .ASCIZ A TR 

047625 . 074 105 117 NECSA: .ASCIZ 7 EOF - SDLC> OAth RDANEET RECEIVED 
5888 047356 NEC4= SLIS5 


RE 
5889 047655 125 116 ee NECS: .ASCIZ \uexpecTeD & Sin Boeke" INTERRUPT 


) CINTERRUPT NOT 

: ~ASLIZ “STATUS pete WITH eRTS> Ey. 

5893 050040 123 124 101 NEC8: .ASCIZ \STATUS WRONG WITH <TT106/2> IN CSRA SET\ 

5894 050110 123 124 101 NEC9: .ASCIZ /STATUS WRONG WITH <TERM-IN-SERV> IN CSRA SET/ 
5895 050165 123 124 101 NECiO: .ASCIZ /STATUS WRONG WITH ALL CONTROLS CLEAR/ 


tt 050232 102 125 123 PIO1: .ASCIZ /BUS TIME-OUT AT PIO / 
120 lil 117 PIO2: .ASCIZ pt RESET Ay a INCORRECT/ 
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Re en EN (EE TRIS NER 


ee ee 


J1S 
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BINARY TO ASCII DECIMAL ENCODER 


5911 


000177 


000402 
050542 012746 000053 
000177 


050720 


050720 
000177 


000055 
050634 


050720 





-SBTTL BINARY TO ASCII DECIMAL 
5 5 FEREEESESS SSS ESSEREEEESEES SESE EAESSEEEEESESEEE ESS SE SEES EEEEEREEERE OE RES 


2% CALL: RO 
33 CALL DECIMAL 
DECIMAL : Hoy #177,-(SP) 
SDECIMAL: MOV #+,-(SP) 
MOV #177,(PC)+ 
LZS: 0 
MOV (SP),8$ 
MOV RO, (SP) 
MOV #8$,RO 
CMPB os (RO), #177 
BEQ i$ 
TST (SP) 
BPL i$ 
NEG (SP) 
MOVB #'-, CRO) 
1$: JSR R5,2$ 
10000. 
1000. 
100. 
ih 
TST (SP)+ 
MOV #8$ ,RO 
RETURN 
2$: INC RO 
MOVB 3—s« #0, (RO) 
3$: CMP 2(SP), (RS) 
BLO 4$ 
INCB = (RO) 
SUB. —s« (R55) ,2( SP) 
BR 3$ 
4$: CMP (RS)+, #1 
BEQ 6$ 
TST LZS 
BEQ a. 
CMPB RO), #0 
BNE 5$ 
MOVB  LZS,(RO) 
402 
5$: CLR LZS 
BR 2$ 
6$: RTS RS 
8$: .BLKB 6 
“WORD 0 
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3; OR SDECIMAL (SIGNED). 
; RO POINTS TO STRING ADDRESS ON RETURN. 


; UNSIGNED, PUSH A NULL. 


; SIGNED, PUSH A + SIGN. 
; NULL LEAD O'S. 


SET 1ST CHAR CNULL OR +). 
COPY NUMBER TO THE ST ACK. . 


AND USE RO FOR THE STRING POINTER. 
CHECK SIGN BYTE.. 

AND BR IF UNSIGNED. 

NUMBER ?? 

YUP . 
NOPE, MAKE ABS VALUE.. 
...AND CHANGE THE SIGN TO (-). 
CONVERT BINARY TO ASCII 
10t4 
10t3 
10t2 
10ti 
10tO 
FIX STACK 


RETURN POINTER TO CALLER. 


; POINT TO NEXT DIGIT.. 
, TO 0. 


.-AND SET IT 
ACCUMULATE THIS DIGIT. 


LAST DIGIT ?? 
ALL DONE . 
Loge TF NOT, NULLING ?? 


BR oe ir WT CaST NZ NZ FOUND). 


ae SKIP NEXT. 
1ST NON. ZE ZERO, CLEAR LZ SWITCH. 


et a 5 D0 


: oe 
. PROPERLY 


TED. 





K1S 
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5913 ; THE FOLLOWING = ARBITER PARAMETERS NEEDED BY 
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THE K2 


5914 050730 000000 -MSIZE: .WORD 3; TOTAL MEMORY SIZE (K WORDS). 
5915 050732 000000 -LSTPG: .WORD 0 3; PAGE ADDRESS (PAF) OF aa 1K PAGE... 
5916 ;3-.-OR ZERO IF MMU NOT AVAILABLE. 
5917 050732 MMU= .LSTPG 33 AVAILABLE . 
5918 050734 -LSTAD: .WORD 0 3; LAST VIRTUAL ADDRESS IN LAST PAGE... 
5919 33...OR LAST ADDRESS UNDER 28K CIF NO MMU). 
5920 050 000020 . : .WORD 16. 33 BUS WIDTH, 16, 18, OR 22. 
5921 050740 000000 IOP.UT: .WORD 0 ;UNIT UNDER TEST FOR MULTIPLE UNITS 
5922 050742 900000 IOP.ID: .WORD 0 :10P ID 
5923 050744 000000 KG.IOP: .WORD 0 :-1 = KNOWN GOOD IOP PRESENT 
5924 050746 000000 I : .WORD O ;NUMBER OF IOPS INDICATED BY ARBITER SNIFF ROUTINE 
5926 050750 000000 $ : .WORD 0 i 
5927 050752 000000 LOWLIM: .WORD 0 ;LOWEST QBUS ADDRESS THAT SHARED MEMORY CAN START AT 
5928 050754 000000 : .WORD O ; NUMBER OF 8KB BLOCKS OF SHARED MEMORY THAT 
; CAN RESIDE ON THE QBUS 
5930 050756 177777 QBE22: .WORD -1 ;ONE INDICATES THAT A 22 BIT QBUS EXERCISER IS 
;sRESIDENT IN THE SYSTEM AT ADDRESS 170020 
59352 050760 177777 QBE18: .WORD -1 ;ONE INDICATES THAT AN 18 BIT QBUS EXERCISER IS 
3 ;RESIDENT IN THE SYSTEM AT ADDRESS 170000 
050762 000000 KDJ$: .WORD 0 4A 
5935 050764 000000 Jii$: .WORD 0 3 
0507 000000 Fii$: .WORD 0 : ‘NON ZERO IN ONE OF THESE INDICATES ARBITER CPU TYPE 
050770 000000 T11$: .WORD 0 ; Pd 
5938 050772 000000 L11$: .WORD 0 3/ 
5939 050774 SPATCH: .BLKW 20 ;AREA FOR PATCHES 
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5942 5 

5943 ; EVERY THING BEFORE THIS IS LOADED INTO THE TARGET K2 

5944 ; NOW ALL THE REST IS THE ARBITERS REMOTE LOADER AND VT -- NONE OF WHICH 
2945 ; NEED BE COPIED DOWN TO THE SLAVE UNIT. 

5947 ; DEFINE A SPACE FOR THE “ERROR LOG”. 

5949 000225 ELOGN= $EN+l 

5950 051034 ELOG: .BLKW ELOGN : ERROR LOG (i1WORD/ERROR). 

5951 051506 051506 LASTAD: ; LAST LOAD-IMAGE ADDRESS. 


MLS 
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5954 ¢ FSSSESSSEEESESESSSESS EASE SEES E SEES ESKEEKEEEEEEEESEEEEEEESEEEEEEEEEREEODE EERE 
5955 s THIS STUFF RUNS FIRST TO oe ae WHAT TYPE OF ARBITER CPU IS 
5956 AND MUCH MEMORY IS AVAILABLE CIMPORTANT FOR 
5957 MEMORY TESTS). 
5958 ; THE FOLLOWING STUFF OVERLAYS THE BUFFER AREA. 
5959 TF THE TEST IS RUN IN THE ARBITER THE FOLLOWING 
5960 :S Y BE OVER WRITTEN 
s dbtnanisttinnnntieeteamnmate atid tte dint ites itilieaneint 
5962 051510 012706 001100 $$ARB: MOV #1100,R6 : T 
5963 051514 012737 000176 001140 MOV #176, aeSWR ;POINTER TO SOFTWARE SWITCH REGISTER 
5964 051522 012737 000176 001142 MOV #176.a8SWR+2 § ;AND DISPLAY REGISTER 
5965 051530 032777 004000 127402 BIT #81111, aSUR ;STANDALONE TEST? 
5966 051536 001402 BEQ 10$ ;NOT DOING STAND ALONE IOP; GO TO 
5967 ;ARBITER SETUP 
5968 051540 000137 056702 JUMP REMOTE : DOING -STANDAL ONE TEST; SKIP OVER THE 
5970 051544 012737 000340 177776 10%: MOV $340, a8PS ;PSW - KERNEL MODE 
5971 051552 004737 052160 JSR PC, ARBITR ;FIND OUT WHAT TYPE OF ARBITER WE ARE 
5972 051556 004737 052574 JSR PC, .SIZE FIND | QUT HOW MANY KWORDS OF ARBITER 
5974 051562 004737 053412 JSR PC, SNIFFR ;FIND OUT HOW MANY AND WHAT TYPE OF IOPS 
7 ;ARE IN THE SYSTEM 

051566 005737 001244 TST $DEVM :IS THERE AT LEAST ONE IOP? 
5977 051572 001003 BNE i$ ; 
5978 051574 104401 052006 TYPE § ,NORESP INFORM OPERATOR THAT NO IOPS WERE FOUND 
5979 051600 000000 HALT 
5980 051602 004737 054070 1$: JSR PC, QBEX ;ARE THERE @ BUS EXERCISERS? 
5981 051606 004737 054202 JSR PC; SHRMEM ;GET INFORMATION FOR SHARED MEMORY TESTS 
5982 ;SUCH AS AMOUNT OF EXISTING MEMORY AND THE 
5983 ;NUMBER OF ADDRESS BITS 
5984 051612 004737 055310 JSR —s- PC, SHOSYS ;NOW SHOW WHAT WHAT IOPS ARE PRESENT 
5986 ;NOW SYNC UP THE IOP UNIT BEING TESTED WITH THE IOP ID NUMBER WHICH 
3987 ;IS DETERMINED BY THE SETTING OF THE ID SWITCH ON THE KXJ11 MODULE 
5989 051616 $AGAIN: ;COMES HERE THE FIRST TIME THROUGH AND AFTER IT HAS TESTED ALL 
599 ;THE IOPS IN THE SYSTEM, 
5990 051616 012737 000001 050740 MOV #1,I0P.UT ;I0P UNDER TEST 
5993 051624 012704 001256 MOV $$D0W2 .R4 ;POINT TO FIRST IOP TABLE ENTRY SET UP BY SNIFFR 
5994 0 1630 012737 000002 050742 MOV e2. TOP. tp ;FIRST IOP ID NUMBER; O AND 1 ARE STANDALONE 
5995 0516 005714 TRYNXT: TST (R4) 51S THERE AN IOP ? 
5996 051640 001531 BEQ NXT :GO TRY THE NEXT POSITION IF NOT. 

; YUP 
999 0 013702 050740 MOV OP .UT,R2 
$000 S8i64s Goede Rsaivey sue ‘Ot Made gsr 
rh 

6008 0516 oiss7 160000 052002 MOV RO OpADR ;GET BASE ADDRESS OF TOPS 
600 ale 4 u 001272 CHP ha, @4D0UE "IS THE IOP ID NUMBER > 
6005 0 1672 737 015000 052002 ADD #15000, IOPADR ;YES, SHIFT TO UPPER RANGE 
6006 051700 013701 050742 i$: MOV TOP .1D,Ri ;GET IOP ID NUMBER 
6007 051704 072127 000005 ASH #5,R1 : SHIFT IT OVER 
6008 051710 960137 052002 ADD Ri. TOPADR 

051714 032714 000002 BIT #81701, (R4) ‘TS IOP IN HIGH RANGE OR LOW RANGE? 
6010 051720 001403 BEQ 2$ ; 1=LOW 2=HI 








N13 
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6011 051722 052737 002000 052002 BIS $2000,IOPADR sg 
6012 051730 010437 052004 2$: MOV R4,POINT ;SAVE R4 IN LOCATION POINT 

6013 051734 005737 052000 TST FRESH 31S THIS A NEW LOAD OF THE DIAGNOSTIC? 
6014 051740 001011 BNE 3$ ;BRANCH IF NOT 

6016 ;ELSE LOAD THE DIAGNOSTIC INTO THE TARGET IOP 

6018 051742 013746 050742 ; MOV IOP .ID,-(SP) 

6019 051746 104401 052136 104405 TYPE  .LDING. 

6020 051754 104401 001163 TYPE; 

6021 051760 000137 056702 UMP REMOTE 

6083 IF THE DIAGNOSTIC HAS ALREADY BEEN LOADED INTO ALL IOPS THEN JUST RESTART 
6025 051764 013700 052002 3$: MOV IOPADR RO ;GET ADDRESS OF IOP TO RESUME TESTING 
6026 051770 005060 000030 CLR 30(RO) ;WRITE TO TPRi2 TO KICK IT OFF 

6027 051774 000137 056770 JMP LINK ;LINK UP WITH THE IOP SERIAL LINE 

6029 052000 000000 FRESH: .WORD 0 ;ZERO INDICATES THAT ALL IOPS ARE NOT LOADED 
6030 052002 000000 IOPADR: :WORD 0 ;HOLD VIRTUAL ADDRESS OF IOP BEING TESTED 
6031 052004 000000 POINT: .WORD 0 ;HOLDS DEVICE DESCRIPTOR WORD ADDRSS 

6035 052006 200 116 117 NORESP: .ASCIZ <CRLF>/NO IOPS INSTALLED/ 

6035 052032 012706 001100 NEXT1 nov 1 #1100, SP ;SET UP THE STACK 

6036 052036 37 0011 CLR $MATL ; 

6037 052042 005037 001170 CLR $MAIL +2 ; CLEAN UP APT MAIL BOX 

60 é 052046 37 001172 CLR $MAIL+4 - ; 

6039 052052 005037 001102 CLR $TSTNM ;ZERO OUT THE TEST NUMBER 

6040 052056 005237 0507 TNC TOP .UT ;IO0P UNDER TEST (NOT ID NUMBER) 

6041 0 2062 023737 050740 050746 CH IOP:UT,IOPCNT ;IS IOP Ut > NUMBER OF IOPS IN SYSTEM? 
8048 88072 013704 0S MOV ‘RETRIEVE VALUE OF DEVICE DESCRIPTOR WORD 
6044 052076 020427 001310 CMP Re ay OOM1S ; DID WE HIT THE TOP? 

6045 0521 901010 BNE NXT 

6046 052104 005237 052000 2¢; INC FRESH ‘INDICATE THAT ITS NOT A NEW LOAD 

6047 052110 005737 052000 TST FRESH ;DON’T LET IT INCREMENT TO ZERO 

6048 052114 901002 BNE 1$ ; | 

6049 : 116 005237 052000 TNC FRESH ; 

60 122 000635 i$: BR $AGAIN 

6051 052124 062704 000002 NXT: ADD $2,R4 ;POINT TO NEXT POSSIBLE IOP 

60 ois 005237 050742 INC TOF 1D ;NEXT IOP ID NUMBER 

6054 052186 = 200114117 DING: .ASCIZ <CRLF>/LOADING 10P IDe / 








B14 
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6057 052160 ARBITR: ;ROUTINE TO FIND OUT WHAT KIND OF ARBITER CPu IS IN THE SYSTEM 
6058 052160 052450 TYPE  ,ARBTYP 
6059 052 3746 000004 MOV ae4,-(SP) ;PUSH OLD VECTOR ONTO STACK 
6060 052170 013746 000006 MOV ae6, -(SP) ; 
6061 052174 052250 000004 MOV $5$,a04 ;LOAD NEW HANDLER ADDRESS 
6062 000340 000006 MOV SPR7, 286 ; 
6063 052210 013700 177750 MOV @#177750,RO ;MOVE MAINTENANCE REGISTER TO RO 
6064 ;NON-KDJ11 WILL TIMEOUT ON ACCESS TO MAINT. REG 
6065 052214 042700 177417 BIC $177417,RO ;CLEAR THE NON-CPU ID BITS 
6066 032220 22700 CMP #20,R0 3315 THE ARBITER CPU A KDJ11? 
6067 4 001014 BNE 108 iF TTS NOT_A KOJ BRANCH 
b0e xe 5 052226 052737 000015 177746 BIS #15, @8CCR ; FORCE CACHE MISSES 
6070 052234 104401 052477 TYPE  ,KDJLIA 
6071 052240 012737 000001 050762 MOV $1, a8KDU$ ;MOVE A ONE TO KDJ TO INDICATE THE TYPE OF ARBITER 
6072 952246 000403 BR $ : 
60 005037 050762 S$: CLR $ ; NOT A 
6074 052254 0 CMP (SP)+,(SP)-+ ;RESTORE STACK 
6075 012637 000006 10$: MOV (SP)+, ;RESTORE VECTORS 
6076 952262 012637 000004 MOV (SP)-+ ; 
60 737 050762 TST ; ;IF THE ARBITER CPU IS A KDJ1l1 
6078 052278 901402 BEQ 7$ 
607 27 137 052446 JMP 25% ; THEN SKIP THE REST OF THIS 
6080 052300 013746 000010 7$: MOV : 9710, (SP? SAVE CONTENTS OF VECTOR 
052304 013746 000012 MOV . 12,-(SP 
052310 012737 052422 000010 MOV #15$ ,a¢10 ‘LOAD IN NEW VECTOR 
952316 012737 000340 000012 MOV ,aei2 ; 
056 4 000007 MFPT ;LSI 11 WILL EXECUTE A RESERVED INSTRUCTION TRAP 
5 ¢ 022700 000005 CMP $J11,RO 31S IT A DCJ1i BASED CPU OTHER THAN KDJ11? 
5¢ 001411 BEQ $ ; BRANCH IF YES 
608 056 0227 000004 CMP $T11,RO ;IS IT A DCT11 BASED CPU? 
6088 OF 1414 BEQ $ ; BRANCH IF YE 
6089 052342 022700 000003 CMP = =—_«@F11,RO ‘TS TT A D2) BASED Chu? 
6090 052346 001417 BEQ 13$ BRANCH IF YES 
6091 ¢ 1 052556 TYPE ; ARBITER CPU TYPE UNKNOWN 
C098 ¢ O18 737 1 050764 118: ROW FF aise 
Ve : 3 
Cae Saeess O00dee ” gg Det 
6096 Oe 72 O12 000001 050770 12¢: MOV #1,a8T11$ ;INDICATE T11 BASED CPU 
3240¢ A } 052534 TYPE pri 
0 | $ 
e099 052406 O15787 000001 050766 13%: MOV $1, 90F 11% ;INDICATE AN F11 BASED CPU 
S101 Osoaso booaee pre Deri 
J. ‘ os ; 
6102 0 15$: ;GOT HERE VIA A RESERVED INSTRUCTION TRAP INDICATES AN LSI11 CPU 
6108 © $2422 012737 000001 050772 MOV. #1, BOL 119 INDICATE. AN LSI11 PROCESSOR 
6104 9524 5 10 052545 TYPE il 
6105 05¢ Cre «SP )*.(SP)+ RESTORE STACK 
6106 05¢ 012637 000012 203: MOV (SP)+,ae12 ;RESTORE VECTORS 
6107 05¢ 12637 000010 MOV (SP)+,9@610 ; 
S108 ’ cmecsacES 
6110 052450 O15 012101 ARBTYP: .ASCIZ <CR><LF>/ARBITER CPU TYPE IS / 
6111 7 101 040 113 KDJLIA: .ASCIZ /A KDJL1A/ 
611 0 104 103 1l2 DCJll: .ASCIZ / 
611 101 040 123 DCFii: .ASCIZ /A KDF11/ 
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BINARY TO ENCODER ail _ 


ASCII DECIMAL 
6114 052534 101 116 


040 OCTi1: 
6115 052545 101 116 040 LSIi1: 
125 116 104 UNKNIN 


6116 052556 
6117 


-ASCIZ /AN SBCi1/ 
-ASCIZ /AN LSI1i/ 
-ASCIZ 


D14 
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16/18/22 BIT MEMORY SIZER 


6 
He 


ee ed ed eed ee ee 


FEL 
005003 
005712 

702 


3 
162702 
005001 


000514 
ee 
SER 
005000 


340 
177572 


052716 
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-SBTTL 16/18/22 BIT MEMORY SIZER 

Ap OY Soe ee 
; MEMORY SIZER FREELY ADAPTED FROM “.$SIZE” IN SYSMAC.SML ). 

;3 THIS ROUTINE MUST RESIDE WITHIN THE FIRST 24K (0-137776). 
ALL GENERAL REGISTERS ARE USED BUT NOT SAVED. 

;; MEMORY PARITY ERRORS CIF ANY) ARE IGNORED 









“SIZE: CLR @eMMRO ;;ENSURE THAT MEMORY MANAGEMENT IS OFF!!! 
050736 MOV #16. , . ABUSW ;; ASSUME 16 BIT ADDRESSING. 
MOV ae4,-(SP) 3; SAVE BUS- 
MOV ae6, -(SP) 
MOV a#114, -(SP) 3;...AND PARITY VECTORS 
MOV a#116,-(SP) 
MOV SP, 3; SAVE STACK POINTER IN RS. 
000114 MOV #116,90114 ;; IGNORE PARITY ERRORS. 
000116 MOV #RTI, 86116 
000004 MOV : 3; SIZE USING "1$" IF KT ISN'T THERE. 
000006 MOV a 
TST 
NOP 
NOP 3; FILLER FOR T11. 
BR SIZKT 3; OTHERWISE, SIZE USING THE KT. 
000004 1$ MOV $3$ 004 3; NO KT -- SET TRAP CATCHER. 
cLR Re 3; FIRST ADDRESS (0). 
es: TST (R2) 3; SIZE FROM O UP... 
ADD Re S-ee4N iK STEPS... 
INC R3 
BR 2s 33.-.-UNTIL WE TRAP. 
3: SUB #2,R2 33 R2 = LAST VIRTUAL ADDRESS 
CLR Ri 33 Ri = 0 (PAF DOESN'T APPLY). 
BR -SIZXIT 33 RETURN. 
.SIZKT: MOV #KIPARO,R1 
MOV P 
MOV #8. .R3 
CLR RO 
i$: MOV RO, (R1)+ 
MOV 877406, (R2)+ 
Soe R3 ;R0 
CLR -(R1) 
CLR 
000004 MOV $23,004 
TST 8 
172516 MOV $20, MMR3 
MOV #3$ 064 
177572 BIS TT00, 
MOV 
CMP ae 
BNE 






F14 
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053040 005037 


eai8 cies 


000401 
022626 
012737 
012704 
000406 


010001 
162701 
012702 
010137 


172516 


000022 
007600 


000026 
177600 
053130 
140000 
000040 


053312 
000022 
053305 
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050736 


050736 


. SIZXIT: 


1$: 


CLR 
BR 
cor 
MOV 
MOV 
BR 
CMP 
MOV 
MOV 
: MOV 
CLR 
TST 
ADD 
INC 
CMP 
BLO 
BR 
CMP 
MOV 
MOV 
CLR 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 
TYPOS 
TYPE 
CMP 
BNE 
TYPE 
BR 
CMP 
BNE 
TYPE 
BR 
TYPE 
TYPE 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 


ASCIZ 
- ASCIZ 
- ASCIZ 


eRS 
CSP). (SP)+ 
#18... ABUSW 
$7600 .R4 

S$ 
(SP)+,(SP)+ 
#177600 ,R4 
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3; WRAP-AROUND -- MUST BE 18 BITS ONLY. 
sFIX STACK 
33 + SET THE BUS WIDTH = 18. 

SIZER LIMIT = 124K. 


sFIX STACK 
33; WE HAVE A REAL ee BIT ADDRESS SPACE. 
; SET SIZER LIMIT = 2048K. 


3:3 TRAP TO 2$ WHEN DONE SIZING 


3; REACHED LIMIT ?? 
;; LOOP IF NOT. 


hy THE STACK 

; DONE, SAVE FINAL PARG. 
.AND RESET IT TO BANK 6 (24K). 
peennee KT OFF eeeeeee0044440402008000% 


33 RECOVER SIZING 

3; Rl = LAST 1K PAGE (PAF). 

33 R2 = LAST ADDR IN THAT PAGE. 
33 RETURN ar PAGE (PAF).. 


"S eae TUAL a 
3;..-AND TOTAL MEMORY SIZE (K). 
MEMORY SIZE 


MESSAGE 
» ARE WE SUPPORTING 22 BIT 


‘YES, TYPE MESSAGE INDICATING 22 BIT ADDRESS 
;;HOW ABOUT 18 BIT ADDRESSES? 


; ;NOPE, iad MESSAGE INDICATING NO 22 BIT 
Soe 


3; RECOVER OUR STACK POINTER.. 
33...AND THE ERROR VECTORS. 


. AND RETURN. 





a4 





IONAL TEST 


KXJ11-CA FUNCT 
16/18/22 BIT MEMORY SIZER 


6252 053472 
rer 053476 
5 053502 
6256 053 
ose r 053512 


6259 053516 
3522 





012705 
004737 





100000 
053776 


000131 
000015 
000116 
001162 
010000 


2 BADD IAY OF . AER ASNBS AS CAGE aes 1 08 a ————Ee———EEEEEwe 
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001412 10$: 


125266 9$: 


Cr | Bess Ps ee 


;NOW FIND OUT HOW MANY AND WHAT ADDRESS THE IOPS ARE AT IN THE SYSTEM 


TSTB 


"way 38088825 
FR 


BSS G88 Fj 


~4 
wn 
~4 


SSgBGBIOGOGIESE BEE BE AR 


a¢SENVM 
12$ 

ae4 ,-(SP) 
a6 ,-(SP) 
$,a04 
#PR7, 
$DEVM 
#4,R1 
#6,R3 


#$DDWe ,R4 


#1,a#TSTLOC 
#160100,R5 
PC,i$ 


#162100,R5 


;SHOULD WE SIZE? 
;SAVE VECTOR 
;LOAD NXM TRAP HANDLER 


‘CLEAR THE DEVICE MAP 
‘LOAD $DEVM WITH VALUE IN Ri 
‘LOOP CONTROL 

IOP WITH AN ID OF 0 OR 1 HAS ITS INTERFACE TO THE QBUS DISABLED 
SKIP OVER THOSE POSITIONS 


IN THE DEVICE DESCRIPTOR WORDS. 


;BASE ADDRESS 


;IS THE ARBIT 
LSTi1 
sIF NOT 
; AS IT GETS 


;sSTART OF DEVICE DESCRIPTOR WORDS 
IN E TABLE 


'BASE ADDRESS FOR IOP ID@ 2 OR OVER. 


FOR IOP ID OF 8 AND OVER 


ER T11 BASED 


BASED? 
THEN SKIP THE NEXT FEW LINES 


HAIRY WITH MMU REGISTERS 


; IN Fil AND J11 ARBITERS, OCCUPYING 
THE SAME I/0 ADDRESSES. 


;BASE ADDRESS OF LOW RANGE IOPS 


;BASE ADDRESS FOR IOP ID OF 8 AND OVER 


;RESTORE VECTORS 


‘IS THERE AN 


IOP ID = 15? 


;GET CHARACTER 


;I1S RESPONSE 
;IS RESPONSE 
31S RESPONSE 


YES? 
THE DEFAULT? 
NO 


3;ASK AGAIN 
;SET BIT IN SUR 


LOE Rs A la Ome mk 


ee eee + EN 6 te OO 
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16/18/22 BIT MEMORY SIZER 


6290 053652 000404 BR 7$ 
6291 





6292 ‘COMES HERE IN EITHER STANDALONE OR APT MODE 
$534 053654 032777 010000 125256 i2s: BIT  eBIT12.aSuR ;IS IOP ID 15 TO BE USED AS A 
6295 :.. .KNOWN GOOD DEVICE 
6296 053662 001410 BEQs1$ - 
6297 053664 042737 100000 001244 7$: BIC #81715. $DEVM YES; CLEAR IT OUT OF DEVICE MAP 
6298 053672 005037 001310 CLR  $DDWI5 : TOR 
6299 053676 012737 177777 050744 MOV —=« $-1, @8KG.. IOP INDICATE A KNOWN GOOD IOP I 
6300 053704 013701 0012 15$: MOV  $DEVM.RI ;LOAD THE FINISHED DEVICE MAP INTO Ri 
6301 053710 12702 0000 MOV #16. .R2 ;INIT R2 AS A COUNTER 
6302 053714 37 050746 cR I :CLEAR OP COUNTER 
6303 053720 1 13$: ROR Ri ROTATE DEVICE MAP 
6304 053722 103002 eccOt«édL; ASS ;BRANCH IF LOW ORDER BIT WAS NOT SET 
6305 053724 005237 050746 Inco INCREMENT IOP COUNTER IF LOW ORDER BIT 
6307 053730 077205 14$: SOB R2,13$ ; 
6308 053752 000207 RTS RETURN TO MAINLINE CODE 
6310 sieiiacoien shoppin ntianel a camcpieceomscenahsith 
6311 ; SUBROUTINE 
6312 SCALLED BY SNIFFR 
6314 053734 005715 is: TST — CRS) ;IF TIME-OUT OCCURS THEN NO IOP AT 
6315 053736 900240 NOP :... THIS 
6316 053740 013714 001412 MOV -—s @#TSTLOC, (R4) DATA IN WORD INDICATES IOP PRESENT 
6317 ;1=LOW RANGE SS, 2=HI RANGE ADDRESS 
6318 053744 050137 001244 BIS R1,a¢$DEVM ;SET BIT IN DEVICE MAP IN ETABLE 
6319 053750 062704 000002 2$: ADD 42.4 POINT TO NEXT IOP TABLE ENTRY 
6320 053754 006301 ASL sé. 
6321 053756 062705 000040 ADD —« #40, RS ;GET NEXT IOP ADDRESS 
6322 053762 077314 SOBOtiérR3«w i$ 
6323 053764 RTS PC ;RETURN TO SNIFFR 

sabes NXM TRAP 
6326 053766 005014 by CLR CRA) ;ZERO BYTE INDICATES NO IOP AT ADDRESS 
6327 053770 012716 053750 MOV _—s 42, (SP) PUT NEW RETURN ADDRESS ON STACK 
3774 000002 RTI ; 
6330 053776 = 200111 123 KGIOPQ: .ASCIZ <CRLF>sIS IOP ID #15 TO BE USED AS A KNOWN GOOD IOP? (Y/N) <Yos 
6 ‘gin Le One eh ee ee ee ae Oe a 
e3ss 054070 QBEX: SUBROUTINE TO DETERMINE IF @ BUS EXERCISER IS RESIDENT IN SYSTEM 
6335 054070 013746 000004 ;SAVE VECTORS ON THE STACK 
6336 054074 013746 000006 } 
6337 054100 012737 054172 000004 s ANTICIPATE TIMEOUT 
6338 0 106 012737 000340 000006 
e340 $84 t30 — eer OF ENDICATES TIMEOUT 
6341 0 is 012737 000001 050760 +18 BIT QBUS EXERCISER RESIDENT 
6 ig> 908087 050760 103: NO 18 BIT QBE 
iste fag ee Pee ees rear 
6346 054144 012737 000001 050756 '22 BIT QBUS EXERCISER RESIDENT 











H14 
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6347 054152 
6348 054154 
160 


369 054 
6370 054232 
6371 054240 
6372 054242 
6373 054250 


63 
6377 054272 
6378 054274 


6380 054302 


6382 054310 
6383 054316 
6384 054320 
6385 
6386 054324 
6387 054330 
6388 054332 
6389 054340 
6390 054346 
Si Sis 


6398 054360 


8 034370 
£398 084376 


6401 $AG0 954410 
054420 
6403 054475 





022737 
001410 
022737 
001410 
012737 
000407 
012737 
000403 
012737 
013737 
062737 
032737 
001406 
062737 
042737 
023737 
0 


103405 
005037 


050756 
000006 
000004 


000002 
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050754 
050754 


:NO 22 BIT QBE 
(SP )+ 386 ;RESTORE VECTORS 
ieee ; 


; INTERRUPT HANDLER FOR TIMEOUT ON ACCESS TO @ BUS EXERCISER 


BR 
15$: CLR 
16$: MOV 

MOV 

RTS 
20%: BIS 

RTI 
SHRMEM: ; 

;0N 

CMP 

BEQ 

CMP 

BEQ 

MOV 

BR 
10$: MOV 

BR 
15$: MOV 
20$: MOV 

ADD 

BIT 

BEQ 

ADD 

BIC 
5$: CMP 

BLO 

CLR 

TYPE 

BR 
6$: MOV 

SUB 

MOV 

CLR 

DIV 

MOV 

MOV 

TYPE 

TYPOS 

TYPE 
7$: MOV 

MOV 

RTS 
SHMAMT: .ASCIZ 
NOSHMR: .ASCIZ 


;GOT HERE ON T SET THE V BIT IN 


#BIT01,2(SP) IMEOUT. 
; RETURN PSW TO INDICATE TIMEOUT OCCURRED. 


ihe ten OUT HOW MUCH SHARED MEMORY SPACE IS AVAILABLE 


#22. , .ABUSH ;IS THIS A 22 BIT SYSTEM? 
$18. , .ABUSW ;IS THIS AN 18 BIT SYSTEM? 


#1600, $HILIM ; 
#177600,$HILIM ; 
20% 

gy $HILIM 


LSTPG, aeLOWLIM ;MOVE LAST PAGE 
a40 @eLOWLIM ;MAKE IT POINT TO FIRST NXM ADDR 
$177 a9L OWL IM ;CHECK AND MAKE IRST NXM 
me ;PAGE IS A 8KB 
$200, @@LOWLIM sIF NOT THEN MAKE IT THE NEXT HIGHER 
#177, @0LOWLIM ;LOWLIM HOLDS THE FIRST NXM ADDRESS 
;0N AN 8KB BOUNDARY 
Oe OMLIM, $HILIM ;MAKE SURE WE HAVE ENOUGH ROOM 
MAXBLK ;NO ROOM FOR SHARED MEMORY. CLEAR 
iio ; MAXBLK 
73 
$HILIM,MAXBLK ;CALCULATE THE AMOUNT OF 
QL OWLIM, MAXBLK ;  @-BUS MEMORY SPACE USABLE 
MAXBLK, Ri ; FOR SHARED MEMORY 
#200,RO 
RO,MAXBLK ‘MAXIMUM NUMBER OF @BUS 8KB BLOCKS 
‘AVAILABLE FOR SHARED MEMORY. 
MAXBLK, -(SP) ;REPORT AMOUNT OF SHARED MEMORY 
. $CRLF 
, SHMAMT 
#PR7 , 90406 


PC 
/ 8KB BLOCKS OF SHARED MEMORY SPACE AVAILABLE/ 
<CRLF>/NO ROOM FOR SHARED MEMORY/ 


—— 


114 
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6440 


162737 
012737 
000405 
013737 
005037 
005237 


013700 
013760 


013760 


012701 
077101 
000002 
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;THIS ROUTINE IS ENTERED WHEN THE K2 UNDER TEST SIGNALS THE ARBITER 
sTHAT IT IS READY TO ACCEPT THE DATA NEEDED TO CONFIGURE THE SHARED 
; e 
ARB404: TST FIRST | ;SEE IF THIS IS THE FIRST TIME THRU 
MOV IOPADR .RO ; 
055306 MOV 12(RO),MAX.WT ;GET MAXIMUM WRITE VALUE 
CLR ;INIT NBLKS 
055300 MOV : ; INIT BLOCKS 
055276 MOV LOWLIM. QBSTRT ;INIT STARTING ADDRESS OF @ BUS NXM 
002426 MOV $-1, ae TRAP4X ; 
000400 MOV #ARB400 , 22400 ;SET UP VECTORS 
MOV 8PR7, a8402 
000374 MOV $ARB374, 08374 ; 
000376 MOV $PR7 , 28376 
2$ TNC FIRST 
055300 CHP #64. .REMBLK ;WHILE REMBLK ARE > 64 
055300 SUB #64. , REMBLK ;SUBTRACT THE 64 BLOCKS TO BE TESTED 
055302 MOV #64. , CURBLK ;INIT THE NUMBER OF BLOCKS OF 
- ; Q@BUS MEMORY TO BE ALLOCATED 
055302 3$ MOV REMBLK , CURBLK : 
4$: 
AR.404: INC NBLKS s INCREMENT NUMBER OF BLOCKS TO BE 
MOV IOPADR,RO 'GET BASE ADDRESS OF IOP BEING TESTED 
000026 MOV NBLKS,26(RO) :LOAD NUMBER OF BLOCKS TO BE SHARED 
000030 MOV _—«@BSTRT, 30CRO) ‘LOAD STARTING @ BUS ADDRESS INTO 
;K2 TPR12; CAUSE INTERRUPT TO K2 
MOV $200,R1 ;sisisis 
SOB Ri,. ; siptaiss 


x» 
poor 
H 


J14 
KXJ11-CA FUNCTIONAL TEST 
16/18/22 BIT MEMORY SIZER 
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6451 054726 ARB374: ;WRITE THE SHARED MEMORY THAT HAS BEEN ALLOCATED TO THE QBUS 
6521 054726 30$: | ;CHECK THAT THE BOUNDARYS ARE BEING HONORED 
6522 054726 013701 055276 MOV QBSTRT.R1 ;STARTING QBUS ADDRESS OF SHARED MEM 
054732 010137 172352 MOV R1, @sKIPARS ; 
6524 054736 010103 MOV R1.R3 
6525 054740 162703 000200 SUB #200 ,R3 ;LAST NXM BEFORE SH4RED MEMORY 
054744 010337 172346 MOV R3, DeKIPAR3 : 
6527 054750 013700 055274 MOV NBLKS , RO : 
6528 054754 062701 000200 31$: ADD #200,R1 sCALCULATE FIRST NXM AFTER SHARED 
6530 054760 077003 SOB RO,31$ ;LOOP CONTROL 
6531 054762 010137 172350 MOV R1. aaKIPAR4 ; 
6532 054766 162701 000200 SUB Rl ;LAST SHARED MEMORY BLOCK 
6533 054772 010137 172354 MOV R1, asKIPARG ; 
6534 054776 012702 055134 MOV $32$,R2 
6535 055002 013746 MOV ,-(SP) ;SAVE VECTOR 
055006 012737 055072 000004 MOV $33$ a4 
6537 055014 052737 000020 172516 BIS #20, 84172516 ;ENABLE 22 BIT ADDRESSES 
055022 052737 000001 177572 BIS #1, 2MMRO ;TURN ON MMU 
6539 055030 023727 055304 CMP FIRST, #1 ; 
055036 001003 BNE 37$ 
6541 055040 062702 000002 ADD #2,R2 
6542 055044 2 BR 38$ 
6543 055046 005732 S7¢: TST a(R2)-+ ;SHOULD TIMEOUT 
6544 055050 000413 BR 34$ 
6545 055052 005732 38$: TST acR2)+ ;HIGH NXM BOUNDARY SHOULD TIMEOUT 
05 000411 BR 34$ 
6547 055056 012737 055114 000004 MOV $35$,a04 
05 732 TST acR2)+ ;SHOULD NOT TIME OUT 
9 05 005732 TST aCR2)+ " 
6550 055070 25 BR 36$ 
6552 055072 062716 000002 33$: ADD #2, (SP) ;BUMP RETURN ADDRESS 
6553 055076 RTI 
6554 
6555 055100 34$: 
055100 013700 052002 MOV IOPADR RO 
055104 012760 000001 000010 MOV GARBER,10(RO) ;SHARED MEMORY OUT OF BOUNDS 
6556 055112 BR 40$ 
6558 055114 35$: : 
055114 013700 052002 MOV IOPADR,RO 
5120 012760 000002 000010 MOV SARBER.10(RO) | ;SHARED MEMORY TIMED-OUT 
6559 055126 012716 055154 MOV #40$, (SP) ;BAIL OUT AFTER 
6 0 055132 RTI 
6562 05 134 077776 32$:  .WORD 77776 ;LOW BOUNDARY NXM 
6565 0 136 190000 “WORD 100000 ; i a. 
20000 . WORD 120000 3F IRS SHARED 
6565 055142 157776 “WORD 157776 ;LAST SHARED MEM 
6567 055144 012637 000004 36%: MOV (SP)+,a04 
6568 055150 000137 055164 JUMP ARB400 
6570 055154 012637 000004 40$: MOV (SP)+,a04 ;RESTORE VEC 
6571 055160 000137 055234 JMP OUT AFTER ERROR 





KK 14 


6574 055164 
6575 


6580 055174 
5200 


6607 055302 
6608 055 
6609 0553506 
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16/18/22 BIT MEMORY SIZER 


055274 


055274 
055300 
020000 
054530 
054672 
052002 
000010 
177572 
000007 
172340 
000200 


002426 
055304 
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055302 


055276 


ARB400: ;NOW DETERMINE IF ALL BLOCKS HAVE BEEN TESTED. IF NOT THEN 
;INITIALIZE THE VALUES NEEDED TO CONTINUE. 
CMP NBLKS , CURBLK ;DID WE TEST ALL THE BLOCKS IN THE 
e$ ; 
CLR ;CLEAR NUMBER OF BLOCKS TO BE ALLOCATED 
TST ;HAVE ALL BLOCKS BEEN TESTED? 
BEQ 25$ :IF ott THEN BAIL OUT 
ADD #20000, @BSTRT ; GET NEXT STARTING QBUS ADDRESS 
OF NEXT 64 4KW BLOCKS 
JMP ARB404 ‘DO IT AGAIN 
2$: JMP AR.404 ; 
25$: MOV IOPADR, RO 
CLR 10(RO) ;SIGNAL K2 THAT TEST IS DONE 
EX400: CLR ;MMU OFF 
CLR RO ;INIT RO 
MOV #7,R2 ;SET UP FOR COUNT 
MOV #KIPARO, ; 
i$: MOV RO, (R1)+ ;INIT KIPARS 
ADD #200 ,RO ;POINT TO NEXT PAGE 
SOB R2,1$ ;LOOP CONTROL 
CLR TRAP4X : 
CLR FIRST ;DONE WITH TEST 
RTI 
NBLKS: .WORD 0 
QBSTRT: .WORD 0O 
: .WORD O 
: .WORD O 
FIRST: .WORD 0 
MAX.WT: .WORD 0 


L1i4 
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1 GOERS PEARS SSS SOSA PSSST S SLOSS SSDS SONSSUSOSSESSSSSCSCSESS 

ects 055310 SHOSYS: ;NOW SHOW THE SYSTEM IOPS ON THE ARBITER’S CONSOLE 
6614 055310 105737 001207 TSTB a#$ENVM ;SHOULD WE SIZE? 
6615 055314 1 BMI $ 

055316 012704 001256 MOV #$DDWe2 .R4 ;sPOINT TO FIRST IOP TABLE ENTRY 
6617 055322 012702 MOV $6,R2 : 
6618 055326 012737 001412 MOV $2000,@8TSTLOC ;BIT SET FOR HI RANGE 
6619 055334 012737 160100 055510 MOV #160100, 22$ ;BASE ADDRESS OF IOPS 
6620 055342 012737 050742 MOV I0P.1D sFIRST IOP ID NUMBER 
6621 055350 004737 055430 JSR *40$ ; 
6623 055354 012702 000010 MOV . »R2 ;LOOP CONTROL 
6624 05 012737 1 055510 MOV $175400,22$ ;BASE ADDRESS OF IOPS WITH ID# 8 OR OVER 
6625 055366 004737 055430 JSR ,40$ ; 
6627 055372 022737 000001 050760 CMP $1, a8QBE18 ;IS THERE AN 18 BIT QBE IN THE SYSTEM 
6628 05 001004 BNE i$ 
6629 055402 104401 055536 TYPE ,32$ 

05 104401 055551 TYPE  [35$ 
6631 055412 022737 1 050756 31%: CMP $1, 8QBE22 ;IS THERE A 22 BIT QBE IN THE SYSTEM? 
6632 055420 001002 BNE 333 : 
6633 055422 104401 055544 TYPE 34$ 
6634 055426 000207 33$: ATS PC 

055430 005714 40$: TST (R4) 
6637 055432 0014 BEQ 30$ ;IF ZERO THEN NO IOP PRESENT 
6638 05 34 132714 000001 BITE #1,(R4) ;WHAT IS THE ADDRESS RANGE 
6640 03544e 053737 001412 055510 BIS @STSTLOC,22$  ;SET HI RANGE FOR PRINT OUT 
6642 055452 043737 001412 055510 41s: BIC @STSTLOC,22$  ;SET LO RANGE FOR PRINT OUT 
6644 o35460 104401 05 1§: TYPE 7$ 
6645 0 013746 050742 MOV I0P.ID,-(SP) 
6646 055470 104405 TYPDS ;TYPE IOP ID NUMBER 
6647 055472 104401 05 TYPE ,8$ 
6648 055476 104401 055627 TYPE 10% sINDICATE A KXJ11-CA 
6649 0 104401 055641 3$: TYPE 12 
6650 0 : 012746 MOV (PC)+,-(SP) 
6651 055510 22: .WORD O 
66 9 : te 104402 TYPOC ;TYPE IOP ADDRESS 

4 704 000002 30$: ADD #2,R4 ;ADVANCE TABLE POINTER 

6654 0 005237 050742 INC 10P .ID ;ADD 1 TO IOP ID NUMBER 
66 5 0 062737 000040 055510 ADD 40 22 ;POINT NEXT IOP ADDRESS 
6657 0 333 900807 RTS € 


6659 055536 015 012 061 32s: ~ASCIZ <CR><LF>/16 / 
012 062 : 


015 343: -ASCII <CR><LF>/22 / 
6661 0 3 102 1ii 124 35%: -ASCIZ /8IT QBUS EXERCISER RESIDENT/ 
Q 015 O12 lil 7%: ~ASCIZ <CR><LF>/IOP IDG / 
1ii 123 8$: ASCIZ /ISA/ 


0 040 : : 
re: 055627 113 130 11l2 10%: .ASCIZ eat Ch / 
5 311$: .ASCIZ 11-CA / 
12$; .ASCIZ / AT ADDRESS / 
320$: .ASCIZ / IS PRESENT BUT NOT AVAILABLE/ 


oees 055641 040 101 124 





M14 


6679 055722 
6680 726 
6681 055732 
6682 055736 
6683 055742 


6693 0557 
94 


6720 
6721 056112 
6722 056116 


e728 0861 





013746 
010046 
010146 
01 

013737 
052737 
005000 
012702 
928703 
007322 


062700 
077104 
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177774 
177741 
001252 


002000 
000012 
000001 
056044 
000000 
000010 


056056 


010000 
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056150 


172352 
177572 


-EVEN 


iopvoe: IOP$TR, 160100 
IOPVO3: ese’ » 160140 


MOV aatsP).R1 ‘GET LOW RANGE ADDRESS OF TPRO FROM 
; INTERRUPTING IOP. 
MOV R1,RO : 
ASH #-4,R0 ;DETERMINE WHICH IOP INTERRUPTED 
BIC #1036 ,RO ;MASK OFF BITS <4:1> 
#$D0W0, ;GET DESCRIPTOR WORD 
BITB #81700, (RO) ; IS THE IOP IN THE HIGH RANGE? 
BIS $2000,R1 ;BOOST IT UP TO HIGH RANGE 
1$: MOV 12(R1),RO ;GO FIND OUT WHAT IT WANTS TO DO 
; FROM THE DATA IN TPRS 
BIT #1,RO ; SURE ITS NOT ODD 
BNE 20$ ;UH OH, ITS ODD; BAIL OUT 
ADD #25$,RO ;RO POINTS TO THE ROUTINE 
JSR PC .acRO) ; 
20$: CLR 10(Ri) SINFORM K2 THAT WE ARE DONE 
MOV CSP 2+. RO ;RESTORE REGISTERS 
MOV (SP)+ 
cP (SP)+,(SP)« ;FAKE A RETURN FROM TRAP 
25:  .WORD NOTST, WT.LCK, TST.ST, ARBTPR, Q$HIT 
;TEST THAT SHARED MEMORY CAN BE ACCESSED FROM THE QBUS USING THE LOCK 
; INSTRUCTIONS 
} 
WT.LCK: MOV @eKIPARS, -(SP) ;SAVE VALUE IN KIPARS 
MOV RO, -(SP) ;SAVE REGISTERS 
MOV Ri,- 2S 
MOV R2, - SP 
MOV LOWLIM, @¢KIPARS ;POINT TO SHARED MEMORY 
BIS 91, a0MPRO : TURN ON MMU 
oe #120000, R2 cave 
; INIT 4KWl BLOCK oF st SHARED MEMORY WITH PATTERN 000000 T0 007776 
1$ .WORD 7322 ‘#eaTEST WRTLCK INSTRUCTION 
ADD #2,R0 ; 
SOB Ri,1$ ;LOOP CONTROL 


— 


N14 
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6725 056126 042737 000001 177572 BIC #1, a&MMRO SOFF THE MMU 
6726 056134 012602 MOV —«-(SP)+ .R2 
6727 056136 012601 MOVs (SP )« ‘RI : 
056140 012600 MOVs (SP-)+ “RO 
6729 056142 012637 172352 MOV (SP)+, aK IPARS sRESTORE KIPARS 
6730 026146 000207 RTS sé 
6732 sNOW TEST THE TSTSET LOCK INSTRUCTION 
6733 056150 013746 172352 iST.ST: MOV @@KIPARS,-(SP ;SAVE VALUE IN KIPARS 
734 056154 010046 MOV —s RO, -(SP) ‘SAVE REGISTERS 
6735 056156 010146 MOVs R11. CSP) 
6736 056160 010246 MOV —sR2.-(SP) 
6737 056162 013737 050752 172352 MOV —«-LOWL IM, @8KIPARS ;POINT TO SHARED MEMORY 
6738 056170 052737 1 177572 BIS #1, 32RO ; TURN ON MMU 
6739 056176 012701 010000 MOV «#4096. .R1 ; 
6740 012702 120000 MOV —«120000.,R2 . 
6742 ;WRITE AN INCREMENTING PATTERN TO SHARED MEMORY STARTING 
6743 SAT VIRTUAL LOACTION 120000 WHICH IS INITIALIZED WITH THE 
6744 ‘VALUE 120000. THE TSTSET INSTRUCTION WILL READ THE VALUE 
6745 000000 VA 120000. IT WILL THEN OR THE LSB =1 AND 
6746 ‘WRITE IT BACK OUT. THE RESULT WILL BE THAT THE DATA IN 
6747 ‘EACH VIRTUAL ADDRESS = ITSELF 1 
6749 056206 007222 4s: WORD 7222 ;xxaeTEST TSTSET INSTRUCTION 
6750 056210 077102 é0B—Ss«éiR1.4$ ‘LOOP CONTROL 
6751 056212 042737 00001 177572 BIC «#1 ,@aMMRO ‘OFF THE MMU 
67 220 012602 MOV (SP)+,R2 ,; 
753 056222 012601 MOVs (SP)+ ‘Ri ; 
er 54 012600 MOVs (SP )+"RO 
6755 056226 012637 172352 MOV —« CSP)+ ‘@@KIPARS SRESTORE KIPARS 
6756 056282 RTS «PE 
6758 056234 ARBTPR: ;LOOP ON READING TPRO UNTIL IT TURNS TO ZERO. THE LOCAL Jil 
6759 ‘WILL ALSO BE ACCESSING THE TPR FILE, MAKING SURE NO NXMS OCCUR 
6760 056234 013746 000110 MOV. @8110,-(SP)  ;SAVE VECTOR 
6761 056240 013746 000112 MOVs @# 112° 
6762 056044 012737 056272 000110 MOVs 2g ;NEW HANDLER 
6763 0 012737 000340 000112 MOV $340, 0112 
764 ;R1 POINTS TO TPRO OF THE KXJ11 UNDER TEST 
6765 0 106427 000000 MIPS 80 ;LOWER INTERRUPT LEVEL 
6766 056264 005711 ‘i. ee ‘IS Ri ZERO YET? 
6767 0 001376 BNE i 
aaa CONES HERE OMY TF 10G112. UNDER TEST HAs SERILURE AND INTERRUPTS VIA 110 
£990 056272 022626 ss: SCO CMP SS*«SSP'D+ , CSP)» FIX STACK 
1 NORMAL EXIT 
6778 056274 012637 090112 $3: MOVs (SP)+,@8112 —=«; AND VECTORS 
677 0123637 000110 MOV —s- (SP )e ae : 
6774 056804 000207 RTS = PE 
6776 056306 QHHIT: THIS ROUTINE WILL KEEP ON ACCESSING THE SHARED MEMORY CAUSING @ HITS 
er78 056306 01 hov ~ RO--tSP)" ;SAVE REGISTERS 
010146 MOVs R41. -(SP) 
G78 0 S12 013746 000004 MOV ae4, -(SP) ;SAVE NXM VECTOR 
013746 000006 MOV 986, -(SP) 





B15 


6782 056 
6783 056 
784 056 
6785 056340 
786 056 

6787 056354 
788 056 
789 056370 

6790 056374 
791 

6792 056404 

6793 

6794 10 
795 056412 
7% 

6797 12 

6796 20 

6799 

6800 056422 

6801 056422 

6802 

6803 

6804 

6805 

6806 

6808 

6809 


BAICQUSWMFrO 


o So 
CRVSTSSNS : 333: 


Go GoGe Se Go aoe 
ea errs 


UiNOe 


So 
ips 
EP 


So o> 
~ 


013746 


: 


ne 


2 
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020000 
100140 


030000 
000160 
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000110 
000004 


000006 
172352 
177572 


173362 


177572 


1$: 
5$: 


6$: 


2$: 


34: 


NOTST: 
5 
KG$T04: 


KG$TOS5: 
KG$TO6: 


KG$T07: 
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MOV 97110, -(SP) ;SAVE VECTOR 
MOV -(SP) ; KIPARS 
MOV €2$ 98110 ; 
MOV $63 ,ae4 3;NEW NXM HANDLER 
MOV $PR7 , a86 
MOV LOWLIM,@&KIPARS ;PUT LOW END OF SHARED MEM IN KIPARS 
BIS #1, ; ON SHARED MEMORY 
MTPS #0 ;ALLOW INTERRUPTS 
MOV #120000, RO 
MOV $4096. .R1 
INC CRO)+ ;READ/MOD/WRITE SHARED MEMORY 
ae 
;COMES IF MEMORY TIME-OUT OCCURS. IF THIS HAPPENS 
;THE DEVICE UNDER TEST IS HUNG. RESET IT LINK UP 
MOV #40000, @IOPADR ;RESET THE IOP UNDER TEST 
HALT ;*#ee0004 ERROR HALT saeeeacace 
;COMES HERE WHEN K2 INTERRUPTS ARBITER AFTER TESTING IS DONE 
MOV #3$ CSP) 3 RETURN 
RTI 3FIX UP STACK AFTER INTERRUPT 
MOV tl pea ; RESTORE IT ALL 
MOV (SP +,@#110 ; 
MOV (SP)+, 086 ;RESTORE VECTORS 
MOV , (SP)+,ae4 i 
MOV Site : 
MOV SP )+,RO $ 
BIC #BITOO , BEMMRO ; TURN OFF MMU 
RTS PC 
RTS PC ; 
-WORD KGS$TO6 
-WORD <QBMEM!UP 
;CHAIN TO TRANSFER FROM SHARED MEMORY TO KNOWN GOOD IOP 
<CARA! CARB! COP !MODE> 






Ae 


sist 


;CHAIN TO TRANSFER FROM KNOWN GOOD IOP TO SHARED MEMORY 
<CARA!CARB!COP!MODE> 
, 0 sSHARED MEMORY SEGMENT 


CKOMEMUP>, 30000 
2048. 


<SWRQ!HM> , <TRWWIINTLV!FLIP> 





Cis 
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6836 SBTTL Q-BUS INTERRUPT (QIR) SERVICE ROUTINES 

6837 § £885 SE9545 5406000455400 046 5580805566066 60 5860604500060 600 $44EES SEEKER EED 

6838 ; * NOTE: THE Q-BUS INTERRUPT SERVICE ROUTINES HAVE BEEN REVISED TO « 

6839 ; * COMPARE THE STACK POINTER 1100. IF THE STACK POINTER IS 

6840 — THAN WE ASSUME APT IS IN THE LOAD PROCESS THE « 

6841 ; * ROUTINE A BREAK TO I RETURNING TO THE 

6842 ; * LOADER. IF APT IS NOT LOADING, THE INTERRUPTS WILL 

6843 ; * BE , O2 MAY 1984. e 

eas Z 5EEEAEERAE EE EEE EEE ESOS ESSE OOS OEE OOOO EEE Oe eeeee 

6846 ; THESE ROUTINES ARE EXECUTED IN THE ARBITER PROCESSOR 

6847 ; IN RESPONSE TO ANY OF THREE Q-REQUESTS: 

ead 49 ; 1. (QIRV) -- DO NOTHING, JUST DISMISS. 

68 ; 3° (QIRVi) -- EXECUTE BUS-RESET AND DISMISS. 

6851 ; 3. (QIRV2) -- WRITE LAST WORD IN NON-ARBITER DUAL-PORT-RAM(S). 

6853 056534 020627 001100 QREQ2: CMP SP, #1100 ; IS APT LOADING? (SP GREATER THAN 11007) 

54 056540 101044 BHI OFF SBC ; IF SO, DON’T DO THIS 

6855 056542 010046 MOV RO, -(SP) ; SAVE RO. 

544 013746 000004 MOV a4, -(SP) ; SAVE ERROR VECTOR... 

6857 056550 013746 MOV a6, -(SP) 

6858 056554 012737 056572 000004 MOV $1$ 084 ;...CHANGE IT... 

6859 056562 012737 000006 MOV #340, O86 

6860 056570 000404 BR 43 ;...AND SKIP NEXT 2. 

6861 056572 052766 000002 000002 14: BIS #2,2(SP) ; ON BUS-ERROR, SET "Vv"... 

6862 056600 000002 | RTI ;...AND DISMISS. 

‘ ; ACCESS (READ-MOD-WRITE) WORD 15 IN Q-BUS DPR WINDOW. 
eB6e 056602 013700 052002 4s: MOV. —s_TOPADR, RO ; LAST DPR WORD INDEX. 
6867 056606 005160 000036 2$: COM 36(RO) ; OPR<15> CPU 
6868 056612 000240 NOP 
6869 056614 012637 000006 3$: MOV (SP)+,a06 ; RESTORE ERROR VECTOR. 
6870 012637 000004 MOV (SP)+, 004 
7 4 MOV (SP)+_RO ; RESTORE RO. 

687 12 BR SAYYES © ; SEND 'Y OVER SERIAL LINE AND DISMISS. ;FX8UC 
74 056630 020627 001100 QREQ1: CMP SP, #1100 IS APT LOADING? ( TER THAN 11007) 
13 036634 101006 HT OFESBC te oO. SEND BREAK 70 SOP” 

o5 0 00040 BR SAYYES : SEND 'Y OVER SERIAL LINE AND DISMISS. ;FX8UC 
Oeeeae Soier, et — el oo STS oO SEND BREAK 10 SOP er TWN 22007) 
056650 1 BR SAYYES : SEND 'Y OVER SERIAL LINE AND DISMISS. ;FX8uC 
oarbee OFFSBC: 

‘ 000002 RTI ; DISMISS INTERRUPT. 
46 SAYYES: MOV Ri, -(SP) SAVE Ri. iF 
east S% Oist0L 056730 MOV : POINT TO SECOND SERIAL LINE. Hae 
105761 000004 i$: tsTe 4cRi) ; WAIT FOR READY. 1 XB 
112761 000131 000006 MOVB 3s @ Y.6(R1) ; SEND A ‘Y FOR “YES, I DID IT’. 3FXBUC 
689) 76 012601 MOV (SP5-, ; RESTORE Ri. 3FXBJC 
RTI ; AND DISMISS INTERRUPT. sFXBUC 





001100 
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001100 
057672 
000032 
057774 
000100 
057646 
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REMOTE LOADER AND VIRTUAL TERMINAL (V4.0). 
5 eeeeeheheeeeeeeeenses gpm geen = Ngee nn ype apnea aaa 
F TO LINK TO AND CONTROL A TARGET SBC-11 CPU. 
; TARGET MACHINE BE CAPABLE EXECUTING IT'S OWN MICRO-CDT 
; (MACRO-ODT IN 711) AND MUST HAVE AT LEAST 16KW RAM AT ABSOLUTE 0. 


, ©4£4SEEESEEEEESSEESEEESERERESSSEEESE SESS SEEEREEESEESEESEEEEEEEEEEERE RRR EE 
; FROM BUFR2 TO 1100 TO PREVENT TOTAL WIPE-OUT OF PROGRAM 
; WHEN STACK RUNS AWAY. JEANELL CUNNINGHAM, 30 APRIL 1984. 


| EH&GEGEEEEEEEEEES SESS EEEEEEESOSSSEEEEEEEEEEEEREERRREREREREEREREEEREEES 


; ENTRY FROM 200G CAUTO-START UNDER XXDP OR APT). 
REMOTE: BR LOAD NOP TO ENABLE SPEED CHANGER. SFXBUC 


SLU2,RO : 
BIC SPDMSK.4(RO) ; #«« IF SPEED PROGRAMMABLE 
BIS SPDSET,4(RO) ; *& SET SPEED = 9600 (OR AS NEEDED). 


: ; 177560 = CONSOLE 
SLU2: 176500 ; DEFAULT SLU2 
i ; 176500 = MXV11 PORT 1..DLV11-u PORT 0 
; 176510 = DLVil-J PORT i 


176510 ; 
6520 ; 176520 = DLV11-J PORT 2 
176530 
176540 . 
176550 
176560 
176570 
76600 : 
176610 
76620 $ 
176630 ; 
SPDMSK: 177400 + bad Bet MASK CAP DE3I9 DLART Une 733 
SPDSET: 16 5 CET pak 9600 CIF BESTS BEART’ tok 953: 
LINK VIRTUAL TERMINAL) MODE. ae 
+ ON ORDER TO DecTINGUISH SBC HAT (oo) PRON’ MASTER HALT (a). 
; 
LINK: MOV @USP,SP RESET STACK POINTER. 
MTPS 40 ; LOWER CPU. 
i$: CALL _—SBCIN 
Bcc. Ot«édASS 
CHPB RO, #32 ; SBC's COMMAND <tZ> 2? 
BNE 28 : SKIP IF NOT... 
CALL UPAR : .- ELSE, UPDATE ARBITERS COPY. 
2$ cee R0.e'8 + $BC'S ODT PROMPT 77 
CALL‘ TTYOUT ; ELSE, ECHO IT TWICE (9a). 
3$ CALL‘ TTYOUT 
as CALL =‘ TTYIN 





E15 
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103355 
120027 
001003 
004737 
000747 
004737 
000744 
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5$: 


“PPRgS 
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; <ESC> ?? 
SKIP IF 


; LOOP FOREVER. 





NOT... 
---ELSE, SEND BREAK (SBC HALT). 


ta RR NL NOI NS Ct Rae Ot nae cme oS poem rmane cemnateerecnemoranemsemppnimmart: TEE ca scene Sam RT RSET NN aN NRSC 
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6960 3 
6961 ; REMOTE LOADER -- SET UP THE ARBITER AND GET IN TOUCH WITH THE SBC. 
ook 057070 106427 340 LOAD: MIPS 7 : CPU. 
6964 057074 027727 121000 000002 CMP @100, #RTI ; BEVNT DISMISSED 27 
6965 057102 001406 BEQ 1$ ; SKIP IF SO. 
057104 012737 000100 MOV SDISMISS,a@#100 ; NO, SET TO DISMISS 
6967 057112 012737 000300 000102 MOV $300, a#102 :. vo 6. 
6968 057120 012737 043002 000034 1: MOV S$ TRAP, 634 ; ‘SEI TRAP VECTOR. . 
6969 057126 012737 000340 000036 MOV $340, a8 ;...FOR SYSMAC "TYPE" CALLS. 
6971 057134 012706 001100 RELOAD: MOV USP, SP ; RESET STACK POINTER. 
6972 057140 104401 30 TYPE ,WAITI ; "WATT..." 
6973 057144 004737 057522 CALL BRK ; BREAK TO THE SBC... 
6974 057150 004737 057736 CALL § WAITOO ;...AND WAIT FOR HIS a. 
6975 057154 004737 060264 CALL  SETPSW ; RAISE PSW. 
6976 057160 004737 060242 CALL § SETREGS ; SET MMU AND MAP-RAM OFF. 
6978 ’ OK, LOAD AND START THE IMAGE LOADER VIA SBC’S ODT. 
6979 : LOAD SEQUENCE REQUIRES 21. CHARS PER WORD TRANSFERRED 
3 ADDR <r > < 
6961 ; WHICH YIELDS AN EFFECTIVE LOAD RATE OF 45. WORDS/SEC AT 9600 BAUD. 
o988 057164 012746 077416 MOV #$LSTRT,-(SP) |; PUSH TARGET LOCAL STARTING ADDRESS... 
6984 057170 012746 060550 MOV $$LOAD, - ;...LOADER SOURCE ADDRESS... 
6985 057174 012746 000125 MOV @$LSIZE,-(SP)  ;. WORD 
057 016602 000004 MOV 4(SP),R2 ; TARGET ADDRESS => R2 
6987 057204 004737 057406 CALL ; ADDRESS<SLASH> 
6988 057210 7 BR 2$ 
6989 057212 017602 1$: MOV G2(SP),R2 ; NEXT DATA WORD => R2 
6990 057216 062766 000002 000002 ADD #2,2(SP) ; BUMP 
6991 057224 004737 057414 CALL DATALF ; XMIT DATA<LF> 
699¢ 057230 004737 057744 2¢: CALL § WAIT40 ; WAIT FOR <SP> AFTER co 
699 bows Ss IN THE SBC 
6994 057234 005316 DEC (SP) ; BUMP WORD ca 
6995 057 100365 BPL i$ ;...AND LOOP ‘TIL ALL WORDS GONE. 
6996 7240 005002 CLR R2 
6997 057242 004737 057422 CALL DATACR ; TERMINATE DATA SEQ WITH <CR>.. 
6998 0 7246 004737 057736 CALL ;...AND WAIT FOR ODT Y, 
022626 CMP (SP)s (SP)« ; OK, DISCARD WC PO 
037284 012602 MOV (SP)+,R2 ; POP TARGET LOCAL START ADDR => R2 
7091 057 004737 060276 CALL  SETPC ‘HIS PC = (R2)... 
z EREKERAEREEREEEERREREESEEESEEESEREESEEEEEEEEEEEEEEEEEEEEREREREEREERRERE KEES 
100 ; THESE TWO LINES ADDED TO INSURE VALID STACK POINTER IN SBC BEFORE SENDING 
, 004 ; PROCEED COMMAND. JEANELL i 
é 
? 7 012702 001100 MOV @USP ,R2 ; PUT USP INTO R2 TO SEND TO SBC 
7007 oa ieee 004737 060304 CALL sp ; SET SBC SP TO (R2) 
3 ERREAEERERREERESAEREEEEEEEEESEEEESEEEEESEEEEEEEEEEREEEEEEEREEDEEEEREEEEESEOEE 
7009 057272 012700 000120 #'P,RO ;...AND XMIT THE PCROCEED) COMMAND. 
7010 057276 004737 057636 SBCOUT 
204 057 004737 057752 CALL §_WAITP ; WAIT FOR PCROCEED) ECHO. 
° 
rors ; NOW, THE TARGET MACHINE IS EXECUTING THE IMAGE LOADER. 
is ; IF KXT, HE’LL TRY A DMA LOAD FIRST. 
7016 057306 004737 057672 $s. CALL §SBCIN ; WAIT FOR SOMETHING TO HAPPEN. 





G15 








KXJ11-CA FUNCTIONAL TEST MACRO YOS.02 Thursday 03-Apr-86 14:11 Page 187 
REMOTE LOADER AND VIRTUAL TERMINAL (V4.0). 
7017 057312 103375 BCC 3$ 
7018 057314 120027 000033 CMHPB sé, #33 ; IF <33> DMA LOAD WAS SUCCESSFUL... 
7019 057320 001426 BEQ 8$ ;..-SAY SO AND GET OUT. 
7020 057322 120027 000034 CHPB 40 s«RO, $34 ; IF <34> DMA FAILED OR NOT SUPPORTED 
7021 057326 001402 BEQ 4$ ;...START A SERIAL LOAD. 
7022 057330 HALT : W-T-F ff 
7088 057332 000700 BR RELOAD 
7025 057334 005003 4s: CLR R3 INIT MARKER. . 
7026 057336 005002 CLR R2 ...AND ADDRESS POINTER 
7027 05 112200 S$: MOVB  (R2)+.RO 
7028 057342 004737 057636 CALL  SBCOUT ; XFER A BYTE 
7029 05 005203 INC R3 ; WORD 
7030 057350 032703 003777 BIT $3777 ,R3 ; 1IKW DONE ?? 
7031 057354 001002 BNE 6$ ; SKIP IF NOT. 
7032 057356 104401 060444 TYPE KMARK ; ELSE, MARK IT 
7033 057362 020227 051507 6$: CMP R2, @LASTAD+1 
7034 057366 101764 BLOS 5$ ; LOOP ‘TIL DONE. 
7035 057370 004737 057672 7$: CALL § SBCIN ; WAIT FOR DONE ACKNOWLEDGE <34>. 
1036 057374 103375 BCC 7$ 
7038 057376 104401 060450 8s: TYPE  ,LOADED ; "SBC LOADED” 
7039 057402 000137 056770 JUMP LINK ; ENTER LINK MODE. 
& 
7041 ; SUBROUTINE TO TRANSMIT ASCII ADDRESS AND/OR DATA FROM R2. 
7042 ; XMIT ADDR<SLASH> TO OPEN ADDRESS FOR INPUT. 
7043 ; XMIT DATA<LF> TO STORE DATA, AND OPEN NEXT ADDRESS. 
7044 : XMIT DATA<CR> TO CLOSE WORD AND TERMINATE DATA SEQUENCE. 
7046 057406 012746 000057 OPNADR: MOV #'/,-C(SP) ; TERMINATE WITH SLASH... 
7047 0574 402 ee 
7048 057414 012746 000012 DATALF: MOV #12,-(SP) ;...LINE FEED... 
7049 057420 402 ;...0R.. 
7050 057422 012746 000015 DATACR: MOV #15,-(SP) ;.. RETURN, 
7051 0 7486 012703 000006 MOV : ; IN ANY CASE, XMIT 6 DIGITS.. 
u 0 14 012704 000001 HOV #1,R4 ;...THE MSD BEING JUST 1 BIT.. 
7 oe 44ah 012704 000003 i$: MOV #3,R4 ;...AND 3 BITS EACH FOR THE REST.. 
7058 057444 1 CLR Ri | ; ASSEMBLE IN Ri. 
70 057446 006 2$: ASL R2 
7 7450 006101 ROL = R1 
7058 057452 077403 SOB R423 ; ROTATE DTGIT TO R1<2:0>... 
7059 057454 062701 000060 ADD #'0,R1 ;...MAKE ASCII. 
7060 057460 010100 MOV R1,RO 
7061 057462 004737 057636 CALL § SBCOUT ; XMIT NEXT CHAR. 
7066 7466 004737 057672 3$; CALL § SBCIN 
7068 0 472 103375 BCC 34 
474 120001 CMPB—séRRO, R1 ; ECHO CORRECT 7? 
2065 057476 001404 BEQ 4s ; BR ; 
7066 0 104401 060526 TYPE EKOERR ; ELSE, “ASCII ECHO ERROR”... 
7067 05 000137 057134 JUMP OAD ;...AND RETRY. 
1068 057510 077 43: SOB R3,1$ 
7069 05 Ol MOV (SP)}+,RO ; XMIT TERMINATOR. 
7070 057514 004737 057636 CALL SBCOUT 
2071 057520 7 RETURN ; AND RETURN. 
e 
707 ; SUBROUTINE TO SEND “BREAK” TO THE SBC. 


H1i5 
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7074 3 
7075 057522 010546 BRK: MOV RS, -(SP) ;SAVE OLD RS VALUE ON STACK ;HE808 
7076 057524 013705 056730 MOV SLU2 ,R5 
7 05 116500 000002 MOVB = 2(R5), RO ; DUMMY READ (CLEAR RECEIVER) FX9UC 
057534 052765 000001 000004 BIS #1,4(R5) ; SET “BREAK 
7079 057542 112765 000060 000006 $0, 6(R5) ; T TWO CHARACTERS FOR TIMING. ;FX8UC 
057550 105765 000004 11$ TSTB «ACR ; WAIT FOR READY. -FX8UC 
7081 057554 100375 11$ ; FXBUC 
7082 057556 112765 000060 000006 #'0,6(R5) ; SEND FXBUC 
7083 057564 105765 000004 22$ TSTB «ACR ; WAIT FOR READY sFXBUC 
057570 100375 22$ : FXBUC 
7085 057572 1 R1 ; WAIT VALUE sFXC 
7086 057574 105715 1$ TSTB Es CR’) ; 
7087 057576 12 BMI 3$ ; >...AND WAIT FOR A RESPONSE 
057 077103 R1,1$ ; 
7097 057602 104401 060514 “= . ; NO LUCK, TELL THE MAN !! 
7098 057606 026627 000002 057070 CMP 2( SP), #LOAD ; CALLED FROM LOAD 2? 
7099 057614 103403 BLO 3$ ; JUST RETURN IF 
7100 057616 012766 057134 000002 MOV @RELOAD,2(SP) ;...ELSE, RETRY. 
7101 057624 042765 000001 000004 33: BIC #1,4(R5) ; "BREAK" IS OFF. 
7102 057632 012605 MOV (SP)+, ;RESTORE RS ; sHE808 
7108 057634 000207 RETURN 
7105 ; CHARACTER OUTPUT TO TARGET SBC OR TTY:. 
‘ 
7107 057636 010546 SBCOUT: MOV RS, -(SP) ;SAVE OLD R5 VALUE ;HE8O8 
7108 057640 013705 056730 MOV SLU2 RS 
7109 057644 000403 BR TYZ 
7110 057646 010546 TTYOUT: MOV R5,-(SP) ;SAVE OLD R5 VALUE ;HE808 
7111 057650 013705 056726 MOV SLU, R5 
711 7654 105765 000004 TTYZ: TSTB 4(R5) 
7113 057660 100375 BPL TIYZ 
7114 057662 110065 000006 MOVB 6(R5) ; OUTPUT FROM RO... 
7115 057666 012605 MOV Cobos RS ;..RESTORE RS... ;HE808 
7116 057670 000207 RETURN ;...AND RETURN. 
3 
7148 ; CHARACTER INPUT FROM TARGET SBC OR KBD:. 
7120 057672 010546 i éBcIN: MOV RS. -(SP) ;SAVE OLD R5 ON STACK ;HE808 
13 Op 000408 TTYIN: MOV RS,-(SP) HEBOS 
: .” 5 
71 7704 013705 056726 SLU1,R5 
7125 057710 105715 TTYX: STB  (R5) 
118s Sesria 105715 wera ¢RS) 5 OG AGAINGIN CASE iT SET ON BREAK. ;FXBUC 
5 3 
1136 5 1736 tt ; 000002 Sone StRS).RO VALID’ é ARS INOUT TD RO.” i 
3 eee 
it 0577 A180 177600 BIC etciyaR RO : VARI 
71 7730 00026 SEC e on 
71 7 O1 2608 i$: MOV (SP)+,R5 RES STACK ;HE808 
Hee 057734 000207 RETURN i 
; 
? ; SUBROUTINES TO WAIT FOR SPECIFIC RESPONSE FROM SBC. 
ny $7 057736 012746 000100 WAITOO: MOV #'a@,-(SP) ; WAIT FOR ODT PROMPT <100>. 
7742 000402 402 
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WAIT40: = #40, -(SP) ; WAIT FOR SPACE CHAR <040>. 
WAITP: MOV #'P,-(SP) ; WAIT FOR PCROCEED) ECHO <120>. 
1$: CALL SBCIN 

BCC i$ 

CMPB RO, (SP) 

BNE i$ 
2s: TST (SP + 

RETURN 
; SUBROUTINE TO UPDATE ARBITERS COPY OF THE APT MAILBOX. 
; CALLED IN LINK MODE IF/WHEN <tZ> IS RECEIVED FROM SBC. 


;¢ 


UPAMB REVISED FOR KXTFX9 TO INCORPORATED CHECKSUMS. 


UPAMB : 


MOV RS, -(SP) ;SAVE RS 
MOV SLU2,R5 ; 
TSTB =s-« A(R’) ; TELL SBC WE'RE READY BY ... 
BPL UPAMB ; ... ECHOING <tZ>. 
MOVB  #32,6(R5) ; 
MOV STMPMALI, ; POINT TO SCRATCH MAILBOX 
MOV #17. ,R1 ; SET B : 
CLR UPERR ; AND CLEAR ERROR FLAG. 
1$: CLR R2 ; KEEP-ALIVE TIMER. 
D$: TsTe CRS) ; WAIT FOR A BYTE ... 
SOB R2,2$ ; ... WITHIN REASON, OF COURSE ... 
BR 7$ ; ... TIMED-OUT ... SEND NACK. 
3$ MOV 2(R5),R2 ; GET BUFFER CONTENTS AND FLAGS. 
BPL 43 ; BR NO ERROR. 
INC UPERR ; SET ERROR FLAG. 
4$: MOVB  R2,(RO)+ ; STUFF TEMPORARY MAILBOX... 
SOB Ri.i$ ; AND CONTINUE UNTIL DONE 
; NOW CHECK FOR ERROR AND E THE CHECKSUM. 
TST UPERR ; WAS THERE A RECEIVER ERROR? 
BNE ; ae ; YES, SEND NACK. 
MOV $16. ,R1 ; BYTE COUNT IN RS. 
MOV éTHPMAL, ; STARTING ADDRES IN R4 
CLR ARBSUM ; CLEAR ACCUMULATOR FOR CHECKSUM. 
S$; MOVB  (R4)+,R3 ; GET A BYTE IN R3. 
BIC $t0377,R3 ; STRIP OFF HIGH BYTE 
ADD R3, ARBSUM ; OPERATE ON THE BYTE 
ASLB ARBSUM ; 
ADC ARBSUM ; 
SOB R1,5$ zk IL DONE. 
CMPB §- ARBSUM,RCDSUM =; DOES IT CHECK? 
BNE 7$ ; NACK. 
MOV #TMPMAI, RO ; YES, UPDATE REAL MAILBOX 
MOV @$MAIL Ri : 
MOV $8. ,R2 ; 8. WORDS... 
6$: MOV (RO}+, (R1)+ ; 
SOB R2,6$ 3 
HOV @ACK.RO ; AND SEND ACK 
; 
7$: MOV #NACK ,RO ; SEND NACK. 
BS: CLR UPERR ; CLEAR ERROR FLAG BEFORE LEAVING. 
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7196 060176 105765 000004 9$: TSTB 30s « A(R) ; WAIT FOR TRANSMIT READY sFXOUC 
7197 060202 100375 BPL £ ; SFXOUC 
7198 060204 110065 000006 MOVB «RO, 6(RS) ; SEND OR NACK. sFXOUC 
7199 060210 012605 MOV (SP)+,R5 ;RESTORE RS 
1200 060212 000207 RETURN ; TO LINK ROUTINE sFXOUC 
7202 060214 TMPMAI: .BLKW 8. : TCH P sFXOUC 
7203 060 000000 RCDSUM: _WORD 0 ; LOW BYTE IS RECEIVED CHECKSUM. sFX9UC 
7204 060 000000 ARBSUM: WORD 0 ; ACCUMULATOR FOR COMPUTING CHECKSUM. ;FX9UC 
7205 060240 000000 UPERR: WORD 0 ; ERROR FLAG FOR OVERRUNS. FX9UC 
7207 ; SUBROUTINES TO SET MMU, 
7208 ; IN PREPARATION FOR VOADING/STARTING” THe eae 
724 -ENABL LSB 
7211 060242 012701 060370 SETREGS: MOV $0MM,R1 ; MMU... 
7212 060246 005002 CLR R2 ;...DISABLED. 

060 004737 060310 mm 8 
7214 060254 012701 060402 MOV #0KX,R1 PRIMARY CSR... 

060 005002 CLR R2 ..DISABLED (MAP-RAM OFF). 
7216 060262 000412 BR i$ 
217 060264 012701 060414 SETPSW: MOV #0PS,R1 ; PSW.. 
7218 060270 012702 000340 MOV #340, Tr oP 
7219 060274 000405 BR i$ 
7220 060276 012701 060420 SETPC: MOV $0PC,R1 ; PC (SET IN R2 BY CALLER). 
7221 060302 000402 BR 13 
122 060 012701 060424 SETSP: MOV #0SP,R1 ; SP (SET IN R2 BY CALLER) 
1e63 SSINSURE THAT "ODT" ECHOES THE CHARACTERS CORRECTLY. Fx 
7225 ; THAT “ODT” ECHOE CHARACTERS CORRECTLY. 
7226 060310 112103 i$: MOVB = (R1)+, ; SAVE BYTE IN R3 FOR COMPARE. ;FX8UC 
7227 060312 001414 BEQ 3% ; IF ING IS DONE. sFXBUC 
7228 060314 110300 MOVB R33, RO ; BYTE TO'RO FOR THE CALL. sFXBUC 
7229 060316 004737 057636 CALL  SBCOUT ; ;FXBUC 
7230 060 004737 057672 2¢: CALL § SBCIN ; sFXBUC 
72 103375 Bcc 2$ ; sFXBUC 
72 : 120005 CMPB OS séRO,R3 ; ECHO CORRECT? FXBUC 
72 1766 BEQ i$ ; YES, CONTINUE ... sFXBUC 
7234 060334 10440 TYPE ; ELSE, "ASCII ECHO " sFXBUC 
1 5 060340 00013 71 JMP RELOAD ; AND GO TRY IT ALL AGAIN. sFX 
7236 060 004737 057672 34: CALL § SBCIN ; OTHERWISE, WAIT FOR <SP> . sFX 
re 7 060350 120027 CMPB sé, 840 sFXBJC 
7238 060354 001373 BNE 3g" ; ;FXBUC 
7239 060356 004737 057422 CALL _‘DATACR ; AND SET VALUE FROM R2. ;FXBUC 
7240 060 004737 057736 4$ CALL WAITOO ; WAIT FOR 8... ;FXBUC 
u 1 060 7 RETURN ; se. AND RETURN ;FXBUC 
ih DSABL LSB 

i 

oy ; TEXT FOR MANIPULATING REGISTERS UNDER “ODT”. 
7247 060370 067 067 067 OMM: .ASCIZ ‘77777572/' ; OPEN MMU SRO F/J 

060402 067 067 067 OKX: .ASCIZ '77777530/' ; OPEN K2CSRD F/J 
7249 060414 122 123 057 OPS: $_ASCIZ ‘RS/' ; OPEN PSH. 

060420 122 067 057 OPC: #.ASCIZ ‘R7/’ ; OPEN PC. 
7251 060424 122 066 057 OsP ASCIZ 'R6/* ; OPEN SP. x 


§ SEKRAAKRAARARSARAKESEEAERKESALEAESESASERESEEEKS CEESKESEAEEEESESEELESEEESEEEESESES 
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; DIRECTIONS AND STATUS TEXT. 


-ASCIZ 


<CR><LF>' WAIT...’ 


‘..I0P LOADED’ <7><CRLF> 

<CRLF>‘ USE <ESC> TO HALT’ <CRLF> 
‘IOP HUNG’ <CRLF> 

‘ASCII ECHO ERROR’ <CRLF> 
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TE L ANO 
7264 ¢ 9959580905540 50505056060560606060606068060006 606600508958 5FE4K 4 EEE EEESEEEEEEEERREDEREERE 
7265 ; IMAGE LOADER FOR THE TARGET SBC. 
7266 : THe ASCIT (ODT) LOADER STUFFS THIS ROUTINE INTO THE SBC 
4 ; AT THE TOP OF 16K, AND STARTS IT RUNNING AT PRI 7 
7269 “DSABL AMA ; MAKE IT RELATIVE PIC. 
7271 060550 010706 $LOAD: MOV PC, SP 
7272 060552 005746 TST -($P) ; SET A STACK... 
7273 060554 010600 MOV é 
7274 060556 005040 1$: CLR -(RO) ;.. AND CLEAR FROM HERE DOWN. 
7275 060560 7 TST RO 
7276 060562 001375 BNE 13 
7277 
7278 ; 
1279 ; DMA LOADER. 
281 060564 012700 000144 $DLOAD: MOV #$SLOAD-.-6,RO ; \ 
7282 060570 700 ADD PC,RO oo SET A TRAP CATCHER. . 
7283 060572 010037 MOV RO ; / ...IN CASE CHIP IS DEAD. 
7284 060576 012737 000340 000006 MOV #PR7, 286 
060604 032737 000340 177524 BIT #340, @8K2CSRC ;1IS IOP IN STANDALONE? 
060612 001451 BEQ $SLOAD ;....THEN JUST DO SERTAL LOAD 
7287 060614 005037 174454 CLR ; CHIP RE 
060620 012737 000115 174470 MOV #115. OeMMR ; SET MAS 
7289 060626 012737 000074 174454 MOV $40!34,08CMDR ;...CLEAR IE’S 
060634 005037 174446 CLR iH 
060640 012700 MOV #2$-.-6,RO 5% 
7292 060644 700 ADD : ; > SET CHAIN ADDRESS 
060646 010037 174442 MOV : - 
7294 060652 012737 240 174454 MOV #240, @OCMDR ; START ‘EM UP... 
7295 060660 032737 020000 174456 16: BIT #IP, @@STATI ;...AND WAIT FOR DONE 
296 060666 001774 BEQ i$ 
7297 060670 013700 174456 MOV @eSTAT1,RO ; SAVE STATUS... 
060674 005037 174454 CLR BECMDR ;...AND RESET CHIP. 
7299 060700 032700 000001 BIT #TC,RO ; TERMINAL COUNT ?? 
060704 001414 BEQ $SLOAD ; NO, DMA FAILED. 
301 060706 112737 000033 177566 MOVB § #33,90177566 ; YES, SEND DMA DONE < ; 
7302 060714 31 BR $START ;...AND THAT'S ALL "58°10 IT 1! 
060716 001602 2%: 1602 ; CHAIN LOAD ARA, ARB, WC, AND CH MODE 
7 05 060720 100000 000000 100000, 0 3...9RC ap Q-BUS ‘oa 
7306 060724 000000 000000 0, 0 :.. Sew L 
7307 060730 024644 <LASTAD+2>/2 ;...RANGE -- O-LASTAD.. 
7308 060732 000030 001340 , 1340 ;...AND START (SOFT-REQ). 
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; SERIAL (BYTE) LOADER. 
; EFFECTIVE LOAD RATE IS 480. WORDS/SEC AT 9600 BAUD. 


$ 


SLOAD: CLR RO ; SERIAL LOAD FROM 0 TO LASTAD. 
MOVB a#177562,R1 ; DUMMY ‘ 
MOVB #34,98177566 =; SEND READY MARK <t\>. 
1s: 1STB 99177560 ; NOW, WAIT FOR... 
MOVB § 9#177562,(RO)+ ;...AND STORE EACH BYTE... 
CMP RO, @LASTAD+1 
BLOS i$ ;...'TIL DONE. 
MOVB § #34,98177566 : SEND DONE MARK <t\>. 
; NOW ONE WAY OR T‘OTHER, THAT SUCKER’S LOADED. 
; DELAY A SKOSH AND START IT RUNNING. 
$START: CLR RO 
SOB RO,. ; DELAY. 
MOV @#206 , 84202 ; DELETE “REMOTE” START ADDRESS. 
MOV #200,PC _STant. . . 
1%: HALT oo eR: Se 
BR 1$ 
EVEN sFX8UC 
$LSIZE= <.-$LOAD>/2 ; IMAGE LOADER SIZE CIN WORDS).. 
STRT= 100000-<. -$LOAD> 3. ARTING ADDRESS. 


$L -AND LOCAL START 
$LSTRT= $LSTRT-110 ; #*& LOWER TO CLEAR T'S ODT STACK #«s 
jessseeansncssessssscesesssesnentesssssnessnssssnssnnesanansseeeseasnnes 


Ri: .BLKW 
BUFR2: .BLKW 2048. 
END 


. ¢ 
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ABASE = 000000 APRIOR= 000000 BIT13 = 020000 CH2STA 021512 DC.RCV 011750 
002506 APTCSU= IT14 = 040000 CIE = 100000 1 
ACDW1 = 000000 APTENV= 000001 BIT1S = 100000 CKBYTE Ol DDISP = 177570 
= 000000 APTSIZ= BIT2 = 010712 
= 000006 SPO= 100 BITS = 000010 CKSWR = 104410 D = 000400 
ACKEN = 020000 036330 BIT4 = 01 DISMIS 
= 000000 2 BITS = CLIEi = DISPLA 001142 
AD 000020 ARBITR 052160 BIT6 = 000100 CLIE2 = 000061 OI 000174 
ADDRS 045713 035776 BIT7 = CLIPi = DMACi 0201 
ADDWO = 000000 ARBSUM 060236 BITS = CLIP2 = 000055 DMAC2 020133 
ADDW1 = 000000 ARB 016703 BIT9 = 001000 CLK1 DMACS 020170 
ADDW10= 000000 ARBTPR 056234 032740 CLK2 046337 DMAC4 2 
ADDW11= 000000 ARBTYP 052450 = CLK3S DMACS 
ADDWi2= 000000 ARB374 0547 BPTVEC= 000014 CLK4 020303 
ADDW13= 000000 055164 CM 032114 DMAC7 3 
ADDW14= 000000 5 BRQ = CMc = 015742 
ADDW15= 000000 054672 = 010000 CMDR = 174454 V 4 
ADDWe = 000000 * BUFRi 061022 CNFGER O1 DMAVi 000214 
p * 000000 ATESTN= 000000 071022 CNFGO1 016536 DMAV2 
ADDW4 = 000000 = 000000 NU O 1 
ADDWS = 000000 = 000000 = 100 CNTZ 044312 020413 
ABBE? = 000000 AVECT1= 900000 BUSTO 011030 COMMA 046136 DMA3 02045 
= 000000 AVECT2= BXMTD 1 COP = 020513 
ADOWS = 000000 A$MAIL= 104416 BYT COP1 = 174462 DMAS 020 
ADP Ye a 9944 A$$MAI BYTES 037576 COP2 = 174460 DOUT = 
ADEVCT= A. SE 022500 1 = COUNT DOWN = 000010 
ADEVM = 000000 Al6 = = 000100 CPEREG= 177766 032122 
ADRBIT tthe A17 = 100000 B4 = 000140 CPUER 56 DPRV1i2 0001 
ADRSUP 053317 A4800 022476 CA = 004000 CPUTST= V4 06001 
16 BADBAL 016572 012436 CR = 000015 DPRV8 000124 
ADR18 053305 BADBIT 016654 CARA = 001000 CRLF = DPR1 046 
ADRe2 053312 BARA = 000100 CARAHI 037042 CSRADR 004715 DPRiO 0471 
AD1621 oh ie BARB = 000040 CARAHi= 174432 CSRDAT 004731 DPR1i1 027371 
NV BAUDSE 022244 CARALO 037044 DPR2 046533 
py ° BDQXFR 020601 CARALi= 174412 DPR3 046 
AF ATAL® 000100 CARB = 000400 CTC = 100000 DPR4 046633 
AGAIN 003064 BFLAG 001352 CARBHi= 174422 CTCC = DPRS 046700 
pastas 026064 CARBLi= 174402 CT = DPR6 046771 
Al, 9 " 48 77 prone 000130 CCR = 177746 = 000070 DPR7 046774 
ALLCTR 1374 002000 CEOP = 020000 = DPR8 047 
AMADR1i= 000000 016776 CHA =s0C CTTC = DPR9O 047107 
AMADRe= 9 494 et AP 003042 CHAD = 000001 CTV. = 000010 DR 
° TO = 900001 CHAINi 014042 CURBLK 055302 DSTART 
AMADR4= TOO = 000001 CHAIN2 014064 C.CLR = 177570 
. BITO1 = 000002 CHAINS 014104 CiFLAG 001404 DTCEXP 
° 000004 CHAIN4 014124 C2FLAG 001406 DTCTO 31 
= 000000 BITOS = 000010 CHAINS 014144 DADR 045767 D 015214 
= 000000 = 000020 CHAING 014164 DATACR 057 DTCXM2 0 
= 000000 BITOS = 000040 CHAI1H = 17 DAT 057414 DTCXMS 
= 000000 Bt ios = 000100 CHAIL = 174442 DATIO = OT 0 3 
Y= 000000 ITO7 = 000200 CHA2H = 174444 OT 015612 
YPi= a9 9 BITO8 = 000400 CHA2L = 174440 DCF 11 DTCXM6 015651 
AMTYPe= BITO9 = 001000 CHB 2000005 046140 DTCXM7 0O 
AMTYPS= 000000 BIT1 = 000002 CHEKSU 010514 DCJii 052510 DT 015452 
vars fess DS Se cease Bea Gast Sle 
APAge = 000000 BIT1i2 = 010000 .DAT 012222 D1 0 
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0200 037562 
050 ©: 037566 
EF1 045206 
EF10 045556 
EFi1 045610 
EF12 04 
EF2 045210 
EFS 045244 
EFS 045326 
EFS 045360 
EF6 045360 
EF? 045442 
EFB 045466 
EF9 045520 
EHi 044764 
an 044774 
EKOERR 060526 
051084 
ELOGN = 000225 
044746 
044742 
EMTVEC= 
TRG 031174 
037160 
10 02 
ENDRAM 011232 
SHM 


ra aie 
FIRST 308 
ms Bae 
FLTO 8=—s_:-O37612 
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C16 
PAR 001576 
PARCHK 006752 
PARDEL 006750 
PARE 010733 
PARERR 011174 
os 000010 
PBCS = 000022 
PBOB = 000034 
PBHS = 000122 
PBMS = 000120 
PBV 
P = 090036 
P = 000014 
PDPDTC 036764 
POR 001562 
000104 
PIOAV 000160 
PIOBV 000164 
PIOD 0254 
PIO0D1 025470 
PI0D2 025 
PIODS 025616 
PIOT 0 
PIOT1 025166 
i ee 
ie See 
PI04 050342 
rt 3 356 
P a8 
PI0O7 05050 
ie 
PIRQV 000240 
pERee. 000240 
PIR 002406 
PIRVEC 40 
PITN 


K 1 

0 010450 
ey ae 
mo". Bae 
PR = 000040 
PR # 000100 
PR * 000140 
ae 
PRE 


PR? = Gonseo 
RR a 





PSW = 177776 
PURF AI= 


PWRVEC= 000024 


ROCHR = 104411 
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SETSP 060304 
SHLOCK 035564 


000103 
STACK = 001100 
START 001622 
STAT = 177774 
STATI = 174456 
STAT2 = 174454 
STBB_ = 
STBOT = 001000 
STF 175 
STFUNL= 000014 


SWR oo1l1 
SWREG 000176 
SWROPT 043152 
SWRQ = 9000020 
SWO = 000001 
SWOO = Q00001 
SWO1 = 000002 
SWO2 = 000004 
SWO3 = 000010 
SWO4 = 0900020 
SWOS = 000040 
SWO6 = 000100 
SWO7 = 000200 
SWOB = 000400 
SWO9 = 001000 
SWi = 900002 
SWi0 = 002000 
SWil = 004000 
SWi2 = 010000 
SWi3 = 020000 
SWi4 = 040000 
Skél5 = 100000 
an = 000004 
= 000010 
SW4 = 000020 
SW5 = 000040 
SW6 = 000100 
SW7 = 000200 
SWB = 000400 
SWO9 os paid a 
ie 003571 
Tide o45a08 
TBITVE= Soodi4 
Ke = 000001 
T = 000004 
TDOMAL Otaese 
TOPR1 OATES. 
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001336 
041610 
001332 





L 

$LPADR 001106 

$LPERR 001110 
= 000125 


$SLSTRT= 077416 
MADR 1220 


5 040432 
ret, i 
$PATCH pepe 
$PNUM = 000010 
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Symbol table 
$QDLY 001342 $SVLAD 040376 $TRAP 043002 $TYPOS 041306 $$TDX 041262 
$QIR 001316 $SVPC = 001000 $TRAP2 043024 $UNIT 001200 SOFILL 041531 
$QUES 001162 $SWR = 101400 $TRP = 001010 $40CA 
$ 042072 $SWREG 001210 $TRPAD 043036 SUPPAR 01 050736 
$RDLIN $ = $TSTM 001004 010176 LSTAD 050734 
$ T 042374 $ T $TSTNM 001102 LSTPG 732 
$RDSZ = 10 $TCID 042330 $VECT1 001236 MMU = 050732 
$RTNAD 040130 $TESIN 001172 $ 04 $VECT2 

040206 $T 1146 $TYPDS 041036 $XOFF = 000023 SIZE 052574 
$SETUP= 000127 $TKS 001144 $ $XON = 
$SLOAD 060736 $1N = 17 $TYPEC 040714 $XTSTR 040230 -SI 053100 

1326 $TYPEX 041034 $$ARB 051510 SIZXI 053156 

$START 061000 $TPFLG 001157 $TYPOC 041332 $$GET4= 000000 $X = 001000 
$STUP = 177777 $TPS 001150 $TYPON 041346 $$SWO8= 000017 


. ABS. 101022 000 (RW,I,GBL,ABS,9VR) 
001 (RU. Lo. REL , CON) 
Errors detected: 0 


*** Assembler statistics 


Work file reads: 422 
Work file writes: 347 
Size of work file: 57336 Words f aa pines? 


Size of core pool: 19402 Words Pegs? 
Operating system: RSX-11M/PLUS funder AX/VMS) 





time: 00:03:03.58 
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